0"\ 



o 



REM 704 FORTRAN II / DBC 



/ 12 JAN 59* „ ' 
704 FORTRAN II / 



DBC / 12 JAN 59. 



THE FOLLOWING CONVENTIONS ARE USED IN THIS LISTING* 

«* IN THE ADDRESS* TAG. OR DECREMENT OF AN INSTRUCTION 

INDICATES THAT THIS FIELD WILL BE MODIFIED BY THE PROGRAM. 

* IN COL/36 INDICATES THE INSTRUCTION IS A TRANSFER OUT OF 

THIS L06ICAL BLOCK OR SUBROUTINE* 

C IN COL/34 INDICATES THE INSTRUCTION WAS CORRECTED. 

P IN COL/32 INDICATES THE INSTRUCTION WAS INSERTED (PATCH)* 



* * * * * 



************************** 



00000 
00001 
00002 
00003 



00000 
00000 00723 
00000 77731^ 
742422233460 
00000 00000 



00000 



ORG 
PZE 
PZE 
BCD 
PZE 



CONTROL CARD FOR DBC* 



TAB+1 

COMMON 

l(DBC) 

(DBC) 

END OF DBC CONTROL CARD* 
***************** 



ORG 



00000 021OO 00001 (DBC) TTR 



DBC/C01 
DBC/C02 
DBC/C03 
0BC/C04 
DBC/C05 
DBC /CO 6 
DBC/C07 
************* *DBC/C08 

DBC/C09 
DBC/001 
DBC/ 00 2 
DBC/003 
►DBC/004 



000O1 


-0 


76000 





00007 


NEW 


LTM 




00002 





62100 





00304 




STA 


TYPE 


00003 


-0 


50000 





00000 




CAL 





Q0004 





62100 





00007 




STA 


CALL 


00005 





40000 





00626 




ADD 


ONE 


00006 





62100 





00015 




STA 


FX4 


00007 


-0 


50000 





00000 


CALL 


CAL 


*# 


00010 


-0 


63400 


4 


00015 




SXD 


FX4.4 


00011 





07400 


4 


00036 




TSX 


LINE.4 


00012 


-0 


53400 


4 


00015 




LXD 


FX4.4 


00013 


-0 


50000 





00016 




CAL 


TRAP 


00014 





60200 





00001 




SLW 


1 


00015 


1 


00000 





00000 


FX4 


TXI 


**»0*** 



00016 02100 00017 TRAP TTR 



00017 


-0 


76000 





00007 


SEEK 


LTM 


00020 


-0 


50000 





00000 




CAL 


00021 





62100 





00024 




STA 


§0022 





40000 





00626 




ADO 


00023 





62100 





00035 




STA 


00024 





50000 





00000 


SETL 


CLA 


00025 





60100 





00033 


STO 


STO 


00026 





56000 





00025 




LDQ 


00027 


-0 


62000 





00033 




SLO 



(DBC)/ CALLS=LINE»READ. CALLER=MAIN PROGRAM* 

(DBC) CONTROLS DECIMAL TO BINARY CONVERSION AND INPUT. 

NEW INSTRUCTION EXECUTED IN LOCATION 

NEW » ENTRY POINT FROM MAIN PROGRAM (C(AC)= ADDRESS OF INPUT D8C/005 

ROUTINE TO HANDLE CURRENT INPUT. AND C(0) = LOCATION OF THE OBC/006 

CURRENT FORMAT STATEMENT)* ™ T ^ A ™ 

SET RBCD TO CALL THE INDICATED 
TYPE OF INPUT ROUTINE* 
SET INPUT FORMAT STATEMENT 
LOCATION* 
SET EXIT 
TO MAIN PROGRAM* 
OBTAIN FORMAT STATEMENT 
FOR SCAN. 

* GO SCAN FORMAT. 
WHEN DONE. RESTORE C(XR4l* 
SET LOCATION 1 FOR FUTURE 
TRAP TRANSFER TO SEEK. AND 

* TRANSFER CONTROL TO MAIN PROGRAM. 
THE MAIN PROGRAM CONTROLS ALL INDEXING OF THE LIST* „„,-„,,,, 
SEEK INSTRUCTION EXECUTED IN LOCATION l.DBC/022 
SEEK * REENTRY POINT FROM MAIN PROGRAM <C(0)* LOCATION OF JfJ'?" 
THE ADDRESS OF THE NEXT INPUT NUMBERS). DBC/024 

PICKUP NTR INSTRUCTION. AND 

SET LOCATION 

SETL OF INPUT NUMBERS. 

0NE SET LOCATION FOR 

0UT RETURN TO MAIN PROGRAM. 

** PICKUP LOCATION OF INPUT 

p UT AND SET ADDRESS AND TAG OF PUT. 

STO SET PUT OP 

PUT TO STO* 



DBC/007 
DBC/008 
DBC/009 
DBC/010 
DBC/011 
DBC/012 
DBC/013 
DBC/014 
OBC/015 
DBC/016 
DBC/017 
DBC/018 
DBC/019 
DBC/020 
DBC/021 



DBC/025 
DBC/026 
DBC/027 
DSC/0 28 
DBC/029 
DBC/030 
DBC/031 
DBC/032 
DBC/033 



A' 



3 I 



00030 


-0 


63400 


4 


00015 




00031 





07400 


4 


00316 




00032 


-0 


53400 


4 


00015 




00033 





60100 





00000 


PUT 


00034 





76000 





00007 




00035 





02100 





00000 


OUT 



SXD FX4.4 
TSX READ t 4 
LXD FX4»4 
STO ***** 
ETM 
TTR ** 

END OF PROGRAM (DBC). 
*********** 



SAVE THE C(XR4)> AND 

GO READ AND CONVERT INPUT. 

RESTORE THE C(XR4). 

STORE INPUT NUMBER* 

REPEAT UNTIL LIST IS EXHAUSTED* 

UNDER CONTROL OF THE MAIN PROGRAM. 



******* 



00036 
00037 
00040 
00041 
00042 
00043 
00044 
00045 
00046 
00047 
00050 
00051 

00052 
00053 
00054 
00055 
00056 
00057 

00060 
00061 
00062 
00063 
00064 
0O065 
00066 
00067 
00070 
00071 
00072 
00073 
00074 
00075 
00076 
00077 
00100 



63400 
63400 
63400 
76000 
62200 
60000 
60000 
62100 
07400 
53400 
53400 
56000 



63400 
63400 
60000 
53400 
63400 
63400 



60000 
00006 
53400 
56000 
76300 
34000 
00000 
00007 
34000 
00000 
76100 
60100 
50000 
76700 
40000 
76700 
36100 



LlNEt4/ CALLS=RBCD*FIELD. USES=READ* CALLER* (DBC) • 
LINE SCANS THE FORMAT STATEMENT FOR EACH LINE OF INPUT. 



00116 LINE 

0011* 

00115 

00006 

00066 

77737 

77731 

00102 

00303 

00102 

00067 

77777 

00120 CCLPAR 

00121 

77735 

77731 

00122 

00265 

77731 SCAN 

00102 SIX 

00061 SCAN1 

77777 

00006 SCAN2 

00631 

00070 UNIT 

00102 SEVEN 

00630 SCAN3 

00105 

00000 

77732 

77731 

00002 

77731 

00001 

77732 



SXD AX4*4 
SXD AX1*1 
SXD AX2*2 
COM 

STD UNIT 
STZ PEX 
ST2 INT 
STA SCANS 
TSX RBCD»2 
LXA SCAN5»2 
LXD SEVEN »1 
LDO -1*2 

CCLPAR « 
SXD BX1*1 
SXD BX2#2 
STQ MQR 
LXA INT«4 
SXD BX4t4 
SXD GRGUPXt4 



DBC/034 
DBC/035 
DBC/036 
DBC/037 
DBC/038 
DBC/039 
DBC/040 

*********** * *DBC/041 

DBC/042 
DBC/043 
DBC/044 
D8C/045 
DBC/046 
DBC/047 
DBC/048 
DBC/049 
DBC/050 
DBC/051 
DBC/052 
DBC/053 



SAVE THE CfXR4) FOR RETURN. 

SAVE THE ORIGINAL C{XR1)» AND 

SAVE THE ORIGINAL C(XR2). 

COMPLEMENT THE C(AC)» AND SET 

UNIT DECREMENT" -{CURRENT UNIT). 

SET PEX (SCALE FACTOR) = 0. AND 

SET INT « 0. 

SAVE THE C(AC) ADDRESS* AND 

GO READ INPUT UNIT RECORD. THEN 

SET XR2» -(CURRENT FORMAT LOC* ) »ANDDBC/054 



SET XR1 * 7* AND PICKUP THE 
1ST WORD OF CURRENT FORMAT. 
ENTRY POINT WHEN A LPAREN IS MET IN FORMAT SCAN. 

SAVE THE CURRENT CHARACTER COUNT* 
SCAN POSITION* AND FORMAT WORD* 
FOR POSSIBLE REPETITION OF GROUP. 
SET GROUP CONTROL COUNT FOR THE 
INDICATED NUMBER OF REPETITIONS* 
„„»„. ,.,^ AND SAVE FOR POSSIBLE RESCAN. 

SCAN ' ■" ENTRY POINT FOR CCCMMA*CCSCFP*CCINPT*RESCAN. 

ST2 INT CLEAR INT WORKING STORAGE* AND 

TXI SCAN5»0»6 GO RESUME SCAN. 

/In SIX*1 RESET FORMAT CHARACTER COUNT* AND 

LD Q -1,2 PICKUP NEXT FORMAT WORD. 

LGL 6 EXAMINE NEXT CHARACTER* 

CAS BLANK AND IF BLANK, 

TXI SCAN3*0*** THEN 

TXI SCAN5*0*7 GO EXAMINE NEXT CHARACTER. 

CAS L(9 , IF NOT BLANK* COMPARE WITH NINE* 

TXI SCAN6*0 IP NON-NUMERIC* COMPARE CCTEST. 



00101 60100 77731 SCAN4 



00102 
00103 
00104 



•0 75400 
2 00001 1 
1 77777 2 



00000 SCAN5 

00064 

00062 



NOP 

STO DIG 
CLA INT 
ALS 2 
ADD INT 
ALS 1 
ACL DIG 

SCAN4 
STO INT 

SCAN5 
PXD ***0 
TIX SCAN2*1»1 
TXI SCAN1*2»-1 



IF NUMERIC* THEN 

CONVERT 

SUCCESSIVE 

BCD 

DIGITS 

TO BINARY* 

TO SET I NT « SCALE FACTOR* 
ENTRY POINT USED BY CCSCFM. 

CURRENT FIELD OR GROUP CONTROL. 
ENTRY POINT USED BY CCDCPT. 

CLEAR THE AC* AND UPDATE COUNT. 

WHEN NO CHARACTERS REMAIN* 

ADJUST SCAN POSITION* AND REPEAT. 



DBC/055 
DBC/056 
DBC/057 
DBC/058 
DBC/059 
DBC/060 
DBC/ 061 
DBC/062 
DBC/063 
DBC/064 
DBC/065 
DBC/066 
DBC/067 
DBC/068 
DBC/069 
DBC/070 
DBC/071 
DBC/072 
DBC/073 
DBC/074 
DBC/075 
DBC/076 
DBC/077 
DBC/076 
DBC/079 
DBC/080 
DBC/081 
DBC/082 
DBC/083 
DBC/084 
DBC/085 
DBC/086 
DBC/087 



^ 



u 



u 



n 



00105 


-0 


53400 


4 


00107 


SCAN6 


00106 





34000 


4 


00626 


SCAN? 


00107 


1 


00014 





00111 


NCC 


00 110 





02000 


4 


00127 




00111 


2 


00001 


4 


00106 


SCAN8 


00112 





42000 


1 


00005 





00113 


1 


00000 





00127 




TXI 


00114 


1 


00000 





00052 


AX1 


TXI 


00115 


1 


00000 





00132 


AX2 


TXI 


00116 


1 


00000 





00137 


AX4 


TXI 


00117 


1 


00000 





00142 




TXI 


00120 


1 


00000 





00145 


BX1 


TXI 


00121 


1 


00000 





00147 


8X2 


TXI 


00122 


1 


00000 





00153 


BX4 


TXI 


00123 


1 


00000 





00172 


• 


TXI 


00124 


1 


00000 





00177 


CXI 


TXI 


00125 


1 


00000 





00250 


CX2 


TXI 


00126 


1 


00000 





00254 
00127 


CX4 
FRMTR 


TXI 
BSS 



00127 07400 4 00266 CCEDMK 

00130 -0 50000 00273 

00131 1 00000 00275 



00132 07400 4 00266 CCCMMA TSX F1ELD»4 



00133 -0 53400 1 00124 RESUME 

00134 -0 53400 2 00125 

00135 56000 77734 

00136 1 00000 00060 



SCAN6 « ENTRY POINT USED 
LXD NCC»4 
CAS CCTEST*4 
TXI SCAN8»0*12 

TRA FRMTR»4 * 

TIX SCAN7»4*1 
HPR 5*1 

END OF PROGRAM LINE. 

************* 



FRMTR / CONTROL TRANSFERS 

CCEDMK*Q 

CCLPAR*Q*** 

CCCMMA»0»** 

CCSLSH*©*** 

CCSCFP*0 

CCSCFM»0»** 

CCRPAR»0*** 

CCDCPT*0*** 

CCINPT»0 

CCHNPT*0*«* 

CCFNPT*0*** 

CCENPT»0*** 



************* 



CCEDMK/ CALLS=FIELD. USES' 
CCEDMJC = ENTRY POINT WHEN 

TSX FIELD*4 * 

CAL TXLOP 

TXI SETSW*0 * 

END OF PROGRAM CCEDMK, 
********#**** 

CCCMMA/ CALLS=FIELD. USES = 

CCCMMA « ENTRY POINT WHEN 

* 

RESUME * ENTRY POINT USED 
LXD CX1»1 
LXD CX2»2 
LDQ MQ 

TXI SCANtO * 

END OF PROGRAM CCCMMA. 

************* 



BY CCDCPT. DBC/088 

WHEN A NON-NUMERIC IS MET» DBC/089 

SCAN LIST OF CONTROL CHARACTERS* DBC/090 

AND IF EQUALITY IS FOUND* DBC/091 

TAKE THE INDICATED TRANSFER. DBC/092 



IF NOT FOUND IN CONTROL LIST* THEN DBC/093 



STOP. PRESS START TO CONTINUE. 
*********** ****** 

FOR FORMAT SCAN = 

END OF FORMAT STATEMENT. 

BEGIN FORMAT OR GROUP. 

END FIELD. 

END LINE OR RECORD. 

SCALE FACTOR PLUS. 

SCALE FACTOR MINUS. 

END FORMAT OR GROUP. 

ROUNDING OF INPUT NUMBER. 

DECIMAL INPUT. 

HOLLERITH FIELD INPUT. 

FIXED POINT INPUT. 

FLOATING POINT INPUT. 

***************** 

'MAIN PROGRAM. 

AN ENDMK IS MET IN FORMAT SCAN. 
GO PROCESS UNDER FIELD CONTROL. 
THEN GO SET CNVSW TO RESCAN FORMAT DBC/1144 



DBC/0935 
DBC/097 

*DBC/098 
DBC/099 
DBC/100 
DBC/1005 
DBC/101 
DBC/102 
DBC/103 
DBC/104 
DBC/105 
DBC/106 
DBC/107 
DSC/ 108 
DBC/109 
DSC /110 
DBC/111 
DBC/112 

*DBC/113 
0BC/114 
DBC/1141 
DBC/1142 
DBC/1143 



IF LIST IS NOT EXHAUSTED. 
***************** 

LINE(SCAN). 

A COMMA IS MET IN FORMAT SCAN. 

GO PROCESS UNDER FIELD CONTROL. 

BY CCSLSH»CCRPAR*CCHNPT. 

WHEN DONE, RESTORE CHARACTER COUNT. DBC/1 19 



DBC/1145 
DBC/1 146 
*DBC/1147 
DBC/1 148 
DSC/ 115 
DBC/116 
DBC/117 
DBC/118 



00137 07400 4 00266 CCSLSH 
©0140 07400 2 00303 
00141 1 00000 00133 



CCSLSH/ CALLS=FIELD»RBCD. 

CCSLSH ■ ENTRY POINT WHEN 

TSX FIELD*4 * 

TSX RBCD»2 * 

TXI R£SUME»0 * 

END OF PROGRAM CCSLSH. 

************* 

CCSCFP/ USESsLINE(SCAN). 



RESTORE SCAN POSITION* AND 
CURRENT FORMAT WORD. THEN 
GO RESUME SCAN. 

***************** 

USES=CCCMMA. 
A SLASH IS MET IN FORMAT SCAN. 
GO PROCESS UNDER FIELD CONTROL. 
WHEN DONE, READ A RECORD* AND 
GO RESUME SCAN. 

*»****#********** 



DBC/120 
DBC/121 
DBC/122 
DBC/123 

#DBC/124 
DBC/125 
DBC/126 
DBC/127 
DBC/128 
DBC/129 
DBC/130 
DBC/1 31 

*DBC/132 
DBC/133 
DBC/1 34 



F? 



00142 
00143 
00144 



50000 77731 

60100 77737 

1 00000 00060 



CCSCFP 
CCSCFP CLA INT 
STO PEX 
TXI SCAN»0 



ENTRY POINT WHEN 



00145 
00146 



00147 
00150 
00151 
00152 



50200 77731 

1 00000 00101 



07400 4 00266 
•0 53400 4 00122 
-2 00001 4 00133 

1 00000 00261 



CCSCFM CLS 
TXI 



END OF PROGRAM CCSCFP* 
************* 

CCSCFM/ USES=LINE(SCANU 

CCSCFM = ENTRY POINT WHEN 

INT 

SCAN4*0 * 

END OF PROGRAM CCSCFM, 
************* 



DBC/135 
D8C/136 
D8C/137 
DBC/138 
DBC/139 
♦DBC/140 
DBC/141 
DBC/142 
A MINUS SIGN IS MET IN FORMAT SCAN.DBC/143 



A P IS MET IN FORMAT SCAN. 

PICKUP AND 

STORE SCALE FACTOR. 

GO RESUME SCAN. 

***************** 



SET INT MINUS* AND 
GO GET SCALE FACTOR. 

***************** 



CCRPAR/ CALLS=FIELD. USES=CCCMMA»RESCAN(GRQUP) • 



CCRPAR = ENTRY POINT WHEN 

* 



CCRPAR TSX FIELD»4 
LXD 6X4*4 
TNX RESUME *4»1 
TXI GROUPED 

END OF PROGRAM CCRPAR. 
************ 



A RPAREN IS MET IN FORMAT SCAN. 
GO PROCESS UNDER FIELD CONTROL. 



DBC/144 
DBC/145 
DBC/146 
*D3C/147 
DBC/148 
DBC/149 
DBC/150 
DBC/151 



WHEN DONE* UPDATE GROUP COUNT* AND DBC/152 



GO RESUME SCAN* UNLESS 
REPETITION OF GROUP IS INDICATED. 



****************** 





00153 





50000 





00171 




00154 





601C0 





00070 




00155 





60000 





77732 


D 


00156 


1 


00000 





00102 




00157 





34000 





00630 


D 


00 160 


1 


00000 





00164 




00161 





76100 





00000 




00162 





60100 





77732 


D 


00163 


1 


00000 





00102 




00164 




60000 





77734 




00165 





56000 





00157 




00166 


-0 


60000 





00070 




00167 





56000 





77734 


D 


00170 


1 


00000 





00105 


D 


00171 


1 


00000 





00157 



REENTRY POINT FROM LINE (SCAN). 
DETERMINE THE 



CCDCPT/ USES»LINE(SCANy. 

CCDCPT = ENTRY POINT WHEN 
CCDCPT CLA DTR 

STO SCAN3 

STZ DIG 

TXI SCANS »0 * 

DCPT1 
DCPT1 CAS L(9) 

TXI DCPT3#0 

NOP 

STO DIG 

TXI SCAN5»0 * 

UV.r 13 dIU fiW 

LDQ DCPT1 
STQ SCAN3 
LDQ MQ 

TXI SCAN6»0 * 

END OF PROGRAM CCDCPT. 
DTR TXI DCPTltO * 

************* 



A POINT IS MET IN FORMAT SCAN. 
MODIFY SCAN INSTRUCTION 
TO TRANSFER INTO DCPT1. 
CLEAR DIG* AND 
GO RESUME SCAN. 



NUMBER* MODULO TEN* 

OF DIGITS 

IN FRACTION. 

WHEN A CONTROL CHARACTER IS MET* 

RESTORE THE 

SCAN INSTRUCTION 

TO ITS ORIGINAL FORM* AND 

60 COMPARE CHARACTER 

WITH CCTEST LIST. 

INSTRUCTION CONSTANT. 

**** ************* 



00172 


-0 


50000 





00273 


CCINPT 


CAL 


TXLOP 
SETFX * 


00173 





63000 





00524 


SETFX 


STP 


FIXSW 


00174 





53400 


4 


77731 




LXA 


INT»4 


00175 


-o 


63400 


4 


00604 




SXD 


C0UNT»4 


00176 


1 


00000 





00060 




TXI 


SCAN»0 



CCINPT/ USES=LINECSCAN>. 

CCINPT = ENTRY POINT WHEN AN I IS MET IN FORMAT SCAN. 

PICKUP TXLOP* AND 
ENTRY POINT USED BY CCFNPT. 

FIXED POINT SWITCH. 
SET COUNT FOR THE 
REPETITION OF THIS FIELD* AND 
* GO RESUME SCAN. 
END OF PROGRAM CCINPT. 
****************************** 



DBC/153 
DBC/154 
DBC/155 

♦DBC/156 
DBC/157 
DBC/158 
DBC/159 
DBC/160 
DBC/161 
DBC/1615 
DBC/162 
DBC/163 
DBC/164 
DBC/165 
DBC/166 
DBC/167 
DBC/168 
DBC/169 
DBC/170 
DBC/171 
DBC/172 
DBC/173 
DBC/174 
DBC/175 

*DBC/176 
DBC/177 
DBC/178 
DBC/179 
DBC/180 
DBC/181 
DBC/182 
DBC/183 
DBC/164 
DBC/185 
DBC/186 

♦DBC/187 



u 



o 






n 



©cm 





53400 


4 


77731 


CCHNPT 


LXA 


00200 





56000 





77736 




LDQ 


00201 


~0 


63400 


2 


00125 




SXO 


00202 


-0 


50000 


2 


77777 




CAL 


00203 


-0 


53400 


2 


00347 




LXO 


00204* 


-2 


00001 


1 


00222 




TNX 


00205 


-o 


63400 


1 


00124 




SXD 


00206 





771Q0 





00006 


HNPT1 


ARS 


00207 


2 


00001 


1 


00206 




TIX 


00210 


-0 


53400 


1 


00124 




LXO 


00211 


2 


00001 


2 


00217 


HNPT2 


TIX 


00212 


-0 


53400 


2 


00350 




LXO 


002I3 


1 


77777 


2 


00214 




TXI 


00214' 





56000 


2 


77751 


HNP73 


LDQ 


00215 


-0 


63400 


2 


G0350 




SXD 


00216 


-0 


53400 


2 


00061 




LXD 


0021? 


-0 


76300 





0O006 


HNPT4 


L6L 


00220 


-2 


00001 


4 


00230 




TNX 


00221 


2 


00001 


1 


00211 




TIX 


00222 


-o 


53400 


1 


00125 


HNPT5 


LXD 


00223 





60200 


1 


77777 




SLW 


00224 


1 


77777 


1 


00225 




TXI 


00225 


-0 


63400 


1 


00125 


HNPT6 


SXD 


00226 


-0 


53400 


1 


00061 




LXD 


00227 


1 


00000 





00211 




TXI 


00230 


-0 


63400 


2 


00347 


HNPT7 


SXD 


00231 


-o 


53400 


2 


00125 




LXD 


00232 


-0 


60000 





77736 




STQ 


00233 


-0 


63400 


1 


00124 




SW 


00234 


-3 


00001 


1 


00246 




TXL 


00235 





56000 


2 


77777 




LDQ 


00236 


-0 


77300 





00006 


HNPT8 


RQL 


00237 


1 


00001 


1 


00240 




TXI 


00240 


-3 


00006 


1 


00236 


HNPT9 


TXL 


©0241 


-0 


60000 





77734 




STG 


00242 


~0 


53400 


1 


00124 




LXD 


00243 


-2 


00001 


1 


00246 




TNX 


00244 


-0 


76300 





00006 


HNPT10 


L6L 


00245 


2 


00001 


1 


00244 




TIX 


00246 





60200 


2 


77777 


HNPT11 


SLW 


00247 


I 


00000 





00133 




TXI 



00250 50200 77737 CCFNPT CLS 

00251 60100 77740 SETXP STO 

00252 50000 00273 CLA 

00253 1 OOOOO 00173 TXI 



CCHNPT/ USES=CCCMMA. 

CCHNPT = ENTRY POINT WHEN 

INT#4 

MOD 

CX2*2 

-1*2 

DX1*2 

HNPT5»lt 1 

CX1»1 

6 

HNPTl»lsi 

CX1»1 

HNPT4»2*1 

0X2 • 2 

HNPT3»2»-1 

BCD #2 

DX2*2 

SIX*2 

6 

HNPT7*4*1 

HNPT2»1*1 

CX2»1 

-ltl 

HNPT6»1#-1 

CX2»1 

SIX*1 

HNPT2.0 

DX1#2 

CX2f2 

MOD 

cxi*i 

HNPT11*1»1 

-1*2 

6 

HNPT9»1*1 

HNPT8*1»6 

MO 

CXW1 

HNPT11*1*1 

6 

HNPT1Q»1*1 

-1»2 

RESUME »0 * 

END OF PROGRAM CCHNPT. 
************* 

CCFNPT/ USES^CCINPT. 

CCFNPT ■ ENTRY POINT WHEN 

PEX 

SETXP a ENTRY POINT USED 

EXP 

TXLOP 

SETFX.O * 



0BC/188 
0BC/189 
DBC/190 
DBC/191 
DBC/192 
DBC/193 
DBC/194 
D8C/195 



AN H IS MET IN FORMAT SCAN. 

SET XR4 * HOLLERITH FIELD WIDTH. 

PICKUP ANY REMAINING INPUT. 

SAVE FORMAT SCAN POSITION, 

PICKUP CURRENT FORMAT WORD. 

S£^ XR2 * INPUT CHARACTER COUNT. 

IF ANY CHARACTERS REMAIN IN CURRENTDBC/ 196 

FORMAT WORD* SAVE FOR-CHAR COUNT* DBC/197 

AND SHIFT REMAINDER INTO 

THE MQ. WHEN DONE* 

RESTORE FOR-CHAR COUNT* AND 

IF INPUT-CHAR COUNT IS EXHAUSTED? 

SET XR2 = INPUT WORD COUNT* 

UPDATE IT* AND 

PICKUP NEXT INPUT WORD* 

THEN SAVE INPUT WORD COUNTf 

AND RESET INPUT-CHAR COUNT TO 6. 

FILL OUT THE PARTIAL WORD IN THE ACDBC/207 

WITH NEW INPUT* UPDATING FIELD DBC/208 

CONTROL* AND WHEN DONE* DBC/209 

SET XR1 = CURRENT FOR-SCAN POSI TI0NDBC/210 

AND STORE INPUT WO,*D IN FORMAT* DBC/211 

THEN UPDATE FORMAT SCAN ?!S^!J? 

POSITION* AND SAVE IT. DBC/213 

RESET FORMAT CHARACTER COUNT TO 6* DBC/214 



DBC/193 
DBC/199 
DBC/200 
DBC/201 
DBC/202 
OBC/203 
DBC/204 
D8C/205 
DBC/206 



D8C/215 
DBC/216 



AND REPEAT UNDER FIELD CONTROL. 

WHEN FIELD CONTROL IS EXHAUSTED* 

SAVE INPUT CHAR COUNT* AND SET XR2 DSC/217 

TO SCAN POSITION. SAVE REMAINING DBC/218 

INPUT* AND SAVE FOR-CHAR COUNT. 

IF ANY CHARACTERS REMAIN 

IN CURRENT FORMAT WORD* 

SHIFT THEM INTO POSITION* 

LEFT-ADJUSTED 

IN THE MQ* 

AND SAVE THE C { MO J . 

RESTORE FORMAT CHARACTER COUNT. 

SHIFT REMAINDER INTO 

THE AC* 

UPDATING CHARACTER COUNT* AND 

STORE LAST WORD OF FIELD. THEN 

60 RESUME SCAN. 



DBC/219 
DBC/220 
DBC/221 
DSC/222 
DBC/223 
DBC/224 
DBC/225 
DBC/226 
D8C/227 
OBC/228 
DBC/229 
DBC/230 
DBC/231 
DBC/232 
*DBC/233 
DBC/234 
DBC/235 
AN F IS MET IN FORMAT SCAN. D8C/236 
PICKUP NEGATIVE OF SCALE FACTOR TO DBC/237 
BY CCENPT. MC/238 

SET EXPONENT. rlcAll 

PICKUP TXHOP AND 2?S,?;? 

GO SET FIXSW TO NOP. DBC/241 



*************** 



■'? 



D L 









END OF PROGRAM CCFNPT. 


DBC/242 








* ***************************** 


*DBC/243 
DBC/244 








CCENPT/ USES*CCFNPT. 


DBC/245 








CCENPT - ENTRY POINT WHEN AN E IS MET IN FORMAT SCAN* 


DBC/246 


00254 


-0 75400 00000 


CCENPT 


PXD *0 CLEAR THE AC» AND 


DBC/247 


00255 


1 00000 00251 




TXI SETXP.O * GO SET EXPONENT AND FIXSW. 
END OF PROGRAM CCENPT. 
****************************** 

RESCAN/ CALLS=RBCD. USES=LINE(SCAN) . 
RESCAN « ENTRY POINT USED BY READ. 


DBC/248 
DBC/249 
*DBC/250 
DBC/251 
DBC/252 
DBC/253 


00256 


-0 63400 4 00116 


RESCAN 


SXD AX4»4 FOR RETURN FROM FORMAT SCAN. 


DBC/256 


00257 


07400 2 00303 




TSX RBCD»2 * GO READ A RECORD. 


DBC/257 


00260 


-0 53400 4 00265 




LXD GR0UPX.4 THEN PICKUP ORIGINAL GROUP COUNT TODBC/258 








GROUP = ENTRY POINT USED BY CCRPAR. 


DBC/259 


00261 


-0 63400* 4 00122 


GROUP 


SXD BX4»4 UPDATE GROUP CONTROL. 


DBC/260 


00262 


-0 53400 1 00120 




LXD BX1.1 RESET CHARACTER COUNT. 


DBC/261 


00263 


-0 53400 2 00121 




LXD BX2.2 RESET SCAN POSITION. AND 


DBC/262 


00264 


56000 77735 




LDQ MQR PICKUP 1ST FORMAT WORD OF GROUP. 


DBC/263 


00265 


1 00000 00060 


GROUPX 


TXI SCAN.O.** * GO RESCAN THIS GROUP. 
END OF PROGRAM RESCAN. 
* * * * * * * * * * ******************** 

FIELD.4/ USES READ. CALLERS=LINE (SCAN) .CCCMMAtCCSLSHf CCRPAF 
FIELD CONTROLS THE REPEATED INPUT OF THE CURRENT FIELD. 


D8C/264 

DBC/265 
*DBC/266 

DBC/267 
t.DBC/268 

DBC/269 


00266 


-0 63400 4 00126 


FIELD 


SXD CX4t4 SAVE THE CCXR4) FOR RETURN. 


DBC/270 


00267 


-0 63400 1 00124 




SXD CX1.1 SAVE THE CHARACTER COUNT* 


DBC/271 


00270 


-0 63400 2 00125 




SXD CX2.2 THE SCAN POSITION* AND 


DBC/272 


00271 


-0 60000 77734 




STQ MQ THE CURRENT FORMAT WORD. 


DBC/273 


00272 


53400 4 77731 




LXA INT«4 EXAMINE INT* AND 


DBC/274 


00273 


-3 00000 4 00300 


TXLOP 


TXL DONE»4.0 IF NOT ZERO. THEN 


DBC/275 


00274 


50000 00273 




CLA TXLOP PICKUP TXHOP TO 
SETSW « ENTRY POINT USED BY LINEISCAN8). 


DBC/276 
DBC/277 


00275 


63000 00321 


SETSW 


STP CNVSW SET CONVERSION SWITCH. 


DBC/278 


00276 


50000 77733 




CLA DATUM THEN PICKUP DATUM. 


D8C/279 


00277 


1 00000 00606 




TXI LIST.O « GO STORE. AND EXAMINE LIST. 
DONE « ENTRY POINT USED BY READ. 


DBC/280 
DBC/281 


00300 


-0 53400 4 00126 


DONE 


LXD CX4.4 WHEN DONE. RESTORE THE C(XR4I» ANC 


> DBC/282 


00301 


02000 4 00001 




TRA 1.4 * RETURN TO CALLER. 
END OF PROGRAM FIELD. 
****************************** 

RBCD»2/ CALLS* (CSH).(TSH). CALLERS=LINE#CCSLSH »RESCAN. 
RBCD READS CURRENT INPUT RECORD INTO BCD BUFFER. 


DBC/283 
DBC/284 
*DBC/285 
DBC/286 
DBC/287 
DBC/288 


00302 


42000 1 00000 


EOF 


HPR 0.1 EOF HALT / PRESS START TO REPEAT. 


DBC/289 


00303 


-0 53400 1 00066 


RBCD 


LXD UNIT.l SET XR1 FOR CURRENT UNIT. AND 


DBC/290 


00304 


07400 4 00000 


TYPE 


TSX **.4 * GO TO INDICATED INPUT ROUTINE. 


DBC/291 


0O305 


77777 77751 




PZE BCD..-1 (INPUT BUFFER) 

DCR1 = END-OF-FILE RETURN FROM INPUT ROUTINE. 


DBC/292 
DBC/293 


00306 


1 00001 00302 


DCR1 


TXI EOF.0.1 GO TO END-OF-FILE STOP. 
OCR 1+1 « NORMAL RETURN FROM INPUT ROUTINE. 


DBC/294 
DBC/295 


00307 - 


-0 50000 00306 




CAL DCR1 FOR CURRENT INPUT. RESET 


DBC/296 


00310 


62200 00347 




STD DX1 INPUT CHARACTER COUNT AND 


DBC/297 



y> 



U 



U 



00311 
00312 



62200 00350 
02000 2 00001 



INPUT WORD COUNT TO ONE* THEN 
* EXIT TO CALLER* 



STO DX2 
TRA 1»2 

END OF PROGRAM RBCD* . ^ ^ * * * 

»»##*»■*#*»*#****•*■*•********* 



00313 
00314 
00315 

00316 
00317 
00320 
00321 

00322 
00323 
00324 
00325 
00326 
00327 
00330 
00331 
00332 
00333 
00334 
00335 
00336 
00337 
0O340 
00341 
00342 
00343 
00344 
00345 
00346 
00347 
00350 
00351 
00352 
00353 
00354 
00355 
00356 
00357 
00360 
00361 
00362 
00363 
00364 
00365 
00366 



-0 63400 4 00321 XREAD 
07400 4 00256 
■0 53400 4 00321 

-0 63400 4 00116 READ 

>0 63400 X 00114 

-0 63400 2 00115 

-3 00000 00313 CNVSW 



50000 
60100 
60200 
60200 
50200 
60100 
50000 
60100 
53400 
56000 
53400 
53400 
14000 
00001 
77777 
53400 
56000 
75400 
76300 
00000 
34000 
00000 
00000 
34000 
00000 
00000 
34000 
00000 
00000 
34000 
00000 
50000 
34000 
42000 
75400 
60100 
00000 



00634 
77743 
77747 
77742 
77732 
77750 
77740 
77744 
77731 
77736 
00347 
00350 
00337 
00343 
00341 
00061 
77751 
00000 
00006 
00520 
00631 
00363 
00367 
00617 
00363 
00361 
00632 
00454 
00364 
00633 
00363 
00634 
00627 
00001 
00000 
77742 
00516 



F6 
F2 
Fl 



DX1 
DX2 



READ*4/ USES=FIELD.LINE. CALLERS* (DBC) .LINE (RESCAN) • 
READ DOES INTEGER* FIXED. AND FLOATING POINT CONVERSION, 
XREAD « EXIT FRG*4 READ WHEN FORMAT IS EXHAUSTED* 
SXD CNVSW. 4 SAVE THE C(XR4)t AND 

TSX RESCAN. 4 * 60 RESCAN FORMAT* THEN RETURN. 

LXD CNVSW. 4 AFTER GETTING FORMAT* 

READ = ENTRY POINT USED BY (DBC). 
SXD AX4.4 SAVE THE C(XR4) FOR RETURN TO L 

SXD AX1.1 SAVE THE ORIGINAL C(XR1)> 

SXD AX2.2 SAVE THE ORIGINAL C(XR2)» AND 

TXL XREAD.O.** SWITCH <TXL=TRA» TXH=NOPW 



F4 

ST0P1 
F5 



CLA 
STO 
SLW 
SLW 
CLS 
STO 
CLA 
STO 
LXA 
LDQ 
LXD 
LXD 
TNO 
TIX 
TXI 
LXD 
LDQ 
PXD 
LGL 
TXL 
CAS 
TXI 
TXI 
CAS 
TXI 
TXI 
CAS 
TXI 
TXI 
CAS 
TXI 
CLA 
CAS 
HPR 
PXD 
STO 
TXI 



MZE 

N 

V 

DG 

DIG 

D 

EXP 

E 

INT. 4 

MQD 

DX1.1 

DX2.2 

F6 

Fl»ltl 

F2»2»-l 

SIX.l 

BCD. 2 

♦ 

6 

D6»4»0 

BLANK 

STOPl.O*** 

F3»0»** 

MINUS 

STOPl.O 

F4»0 

PLUS 

C5L.0 

F5»0 

NEGAT 

STOPl.O 

MZE 

TEN 

1*1 

.0 

DG 

09 »0 



DBC/298 
DBC/299 
DBC/300 
* *DBC/301 
DBC/302 
DBC/303 
DBC/ 304 
DBC/305 
DBC/306 
DBC/3061 
DBC/3062 
DBC/307 
IST*DBC/308 
DBC/309 
DBC/310 
DBC/311 
DBC/312 
DBC/313 
DBC/ 3 14 
DBC/ 3 15 
DBC/316 
DBC/317 
DBC/318 
DBC/319 
DBC/320 
DBC/321 
DBC/322 
DBC/323 
DBC/324 
DBC/325 
DBC/326 
DBC/327 
DBC/ 3 28 
DBC/329 
DBC/330 
DBC/331 
DBC/ 332 
DBC/333 
DBC/ 334 
DBC/335 
DBC/ 3 36 
DBC/337 
DBC/338 
DBC/339 
DBC/340 
DBC/ 341 
DBC/342 
DBC/343 
DBC/344 
DBC/345 
DBC/ 346 
DBC/347 
DBC/ 348 
DBC/ 3 49 



fit 



JO L 





00367 


2 


00001 


4 


00337 


F3 


TIX 


F6*4*l 





00370 


1 


00000 





00520 




TXI 


D6»0 




00371 


-2 


00001 


4 


00417 


El 


TNX 


E5*4»l 




00372 


2 


00001 


1 


00376 




TIX 


E2»l»l 




00373 


1 


77777 


2 


00374 




TXI 


E3»2»-l 




00374 


-0 


53400 


1 


00061 


E3 


LXD 


SIX»1 




00375 





56000 


2 


77751 




LDQ 


BCD* 2 




00376 


-0 


75400 





OOOOO 


E2 


PXD 


♦ 




00377 


-0 


76300 





00006 




LGL 


6 




00400 





34000 





00631 




CAS 


BLANK 


D 


00401 


1 


00000 





00416 




TXI 


STOP2»0 





00402 


1 


00000 





00371 




TXI 


E1*0 




00403 


-0 


63400 


4 


00424 




SXD 


ER*4 




00404 





34000 





00617 


C2L 


CAS 


MINUS 


D 


00405 


1 


00000 





00424 




TXI 


ERtO 





00406 


1 


00000 





00414 




TXI 


E4»0 




00407 





34000 





00632 


C4L * 


CAS 


PLUS 


D 


00410 


1 


00000 





00424 




TXI 


ER»0 


D 


00411 


1 


00000 





00417 




TXI 


E5*0 




00412 





34000 





00633 




CAS 


NEGAT 


D 


00413 


1 


00000 





00424 




TXI 


ER>0 




00414 





50000 





00634 


E4 


CLA 


MZE 




00415 





34000 





00627 




CAS 


TEN 




00416 





42000 


1 


00002 


ST0P2 


HPR 


2>1 




00417 


-0 


75400 





OOOOO 


E5 


PXD 


♦ 




00420 





60100 





77744 




STO 


E 




00421 


-2 


00001 


4 


00520 




TNX 


D6*4*l 




00422 


2 


00001 


1 


00430 


E9 


TIX 


E6»l*l 




00423 


1 


77777 


2 


00426 




TXI 


E7»2*-l 




00424 


3 


ooooo 


4 


00452 


ER 


TXH 


ST0P4*4*** 





00425 


1 


ooooo 





00416 




TXI 


STOP2*0 




00426 


-0 


53400 


1 


00061 


E7 


LXD 


SIXtl 




00427 





56000 


2 


77751 




LDQ 


BCD* 2 




00430 


-0 


75400 





OOOOO 


E6 


PXD 


• 




00431 


-0 


76300 





00006 




LGL 


6 




00432 





34000 





00631 




CAS 


BLANK 


D 


00433 


1 


OOOOO 





00436 




TXI 


ST0P3*0 


D 


00434 


1 


OOOOO 





00437 




TXI 


E8#0 




00435 





34000 





00627 




CAS 


TEN 




00436 





42000 


1 


00003 


ST0P3 


HPR 


3*1 




00437 


-0 


75400 





OOOOO 


E8 


PXD 


• 




00440 





60100 





77742 




STO 


DG 




00441 





50000 





77744 




CLA 


E 




00442 





76700 





00002 




ALS 


2 




00443 





40000 





77744 




ADD 


E 




00444 





76700 





00001 




ALS 


1 




00445 





36100 





77742 




ACL 


DG 




00446 





60100 





77744 




STO 


E 




00447 


2 


00001 


4 


00422 




TIX 


E9»4*l 





00450 


1 


OOOOO 





00520 




TXI 


D6»0 




00451 





34000 





00631 


C1L 


CAS 


BLANK 




00452 





42000 


1 


00004 


ST0P4 


HPR 


4*1 


D 


00453 


1 


OOOOO 





00506 




TXI 


D7»0 




00454 


-0 


63400 


4 


77746 


C5L 


SXD 


U*4 



DBC/350 

DBC/351 

D8C/352 

DBC/353 

0BC/354 

OBC/355 

DBC/356 

DBC/357 

DBC/358 

OBC/359 

DBC/360 

OBC/361 

OBC/362 

OBC/363 

DBC/364 

OBC/365 

OBC/366 

OBC/367 

DBC/368 

DBC/369 

DBC/370 

OBC/371 

OBC/372 

DBC/373 

DBC/374 

DBC/375 

DBC/376 

DBC/377 

BBC/ 378 

DBC/379 

DBC/380 

DBC/381 

DBC/382 

DBC/383 

OBC/384 

OBC/385 

OBC/386 

OBC/387 

OBC/388 

OBC/389 

OBC/390 

0BC/391 

0BC/392 

OBC/393 

DBC/394 

DBC/395 

DBC/396 

DBC/397 

DBC/398 

DBC/399 

DBC/400 

DBC/401 

DBC/402 

OBC/403 



o 



o 





00455 


62200 





00424 




STD 


ER 




00456 


34000 





00621 




CAS 


POINT 


D 


00457 


1 ooooo 





00404 




TXI 


C2L»0 




00460 


1 77777 


4 


00465 




TXI 


C3L»4*-1 




00461 


34000 





00625 




CAS 


EX PON 





00462 


1 OOOOO 





00452 




TXI 


ST0P4»0 


D 


00463 


1 OOjOOO 





00371 




TXI 


£1*0 


D 


00464 


1 OOOOO 





00407 




TXI 


C4L*0 




00465 


-0 75400 


4 


00000 


C3L 


PXD 


»4 




00466 


77100 





00022 




ARS 


18 




00467 


60100 





77746 




STO 


U 




00470 


60100 





77750 




STO 


D 




00471 


1 00001 


4 


00517 




TXI 


D8»4»l 




00472 


50000 





77747 


D4 


CLA 


V 




00473 


40000 





00626 




ADD 


ONE 




00474 


60100 





77747 




STO 


V 




00475 


-2 O0O01 


4 


00520 




TNX 


D6*4»l 




00476 


2 00001 


1 


00502 


05 


TIX 


01*1*1 




00477 


1 77777 


2 


00500 




TXI 


D2*2*-l 




00500 


53400 


1 


00503 


D2 


LXA 


D3»l 




00501 


56000 


2 


77751 




LDQ 


BCD* 2 




00502 


-0 75400 





00000 


Dl 


PXD 


♦ 




O0503 


-0 76300 





00006 


D3 


LGL 


6 




00504 


34000 





00627 




CAS 


TEN 





00505 


1 OOOOO 





00451 




TXI 


C1L>0 




00506 


-0 75400 





ooooo 


07 


PXD 


»0 




00507 


62100 





77742 




STA 


DG 




00510 


50000 





77743 




CLA 


N 




00511 


76700 





00002 




ALS 


2 




00512 


40000 





77743 




ADD 


N 




00513 


v f O f W*J 




00001 




ALS 


1 




00514 


40000 





77742 




ADD 


DG 




00515 


14000 





00472 




TOV 


D4 




00516 


60100 





77743 


09 


STO 


N 




00517 


2 00001 


4 


00476 


D8 


TIX 


D5*4*l 




00520 


50000 





77743 


D6 


CLA 


N 




00521 


-0 60000 





77736 




STQ 


MOD 




00522 


-0 63400 


1 


00347 




SXD 


0X1*1 




00523 


-0 63400 


2 


00350 




SXD 


0X2*2 


D 


00524 


-3 00000 





00600 


FIXSW 


TXL 


T1»0 




00525 


10000 





00601 




TZE 


T2 




00526 


50000 





77750 




CLA 


D 




00527 


-0 12000 





00533 




TMI 


ADE 




00530 


50000 





77746 




CLA 


U 




00531 


77100 





00022 




ARS 


18 




00532 


40200 





77750 




SUB 


D 




00533 


40000 





77744 


AOE 


ADD 


E 




00534 


40000 





77747 




ADD 


V 




00535 


60100 





77750 




STO 


D 




00536 


50000 





77743 




CLA 


N 




00537 


62100 





00635 




STA 


Kl 




00540 


77100 





00017 




ARS 


15 




00541 


-0 50100 





00636 




ORA 


K2 




00542 


30000 





O0636 




FAD 


K2 



OBC/404 

DBC/405 

0BC/406 

OBC/407 

D8C/408 

DBC/409 

0BC/410 

OBC/411 

OBC/412 

OBC/413 

DBC/414 

DBC/415 

DBC/416 

DBC/417 

DBC/418 

BBC/419 

DBC/420 

DBC/421 

DBC/422 

DBC/423 

OBC/424 

DBC/425 

DBC/426 

DBC/427 

OBC/428 

OBC/429 

DBC/430 

DBC/431 

DBC/432 

OBC/433 

DBC/434 

DBC/435 

DBC/436 

OBC/437 

OBC/438 

OBC/439 

DBC/440 

DBC/441 

OBC/442 

OBC/443 

OBC/444 

DBC/445 

OBC/446 

SBC/ 447 

OBC/448 

DBC/449 

OBC/450 

OBC/451 

DBC/452 

OBC/453 

OBC/454 

DBC/455 

DBC/456 

OBC/457 



SO 



00543 
00544 
00545 
00546 
00547 
00350 
00551 
00552 
00553 
00554 
00555 
00556 
00557 
00560 
00561 
00562 
00563 
00564 
00565 
00566 
00567 
00570 
00571 
00572 
00573 
00574 
00575 
00576 
00577 
00600 
00601 
00602 
00603 
00604 
00605 

00606 
00607 
00610 
00611 



00612 
00613 
00614 
00615 
00616 
00617 
00620 
00621 
00622 
00623 



60100 
76000 
50100 
30000 
77300 
76000 
50100 
53400 
00000 
56000 
16200 
00061 
24100 
600O0 
50000 
36100 
76000 
76000 
00000 
60100 
00061 
56000 
26000 
36100 
76000 
00000 
76000 
76000 
00000 
76700 
53400 
00001 
60100 
00000 
63400 



77745 

00000 

00635 

77745 

00010 

00010 

00637 

77750 

00601 

77750 

00566 

00564 

00722 

77745 

77745 

00640 

00001 

00000 T5 

00601 

77745 T4 

00575 

77745 

00722 

00641 

00001 

00601 

00000 T3 

00006 

00601 

00022 Tl 

00604 T2 

00605 

77733 

00300 COUNT 

00604 MORE 



-0 53400 4 00116 LIST 
•0 53400 1 00114 
•0 53400 2 00115 
02000 4 00001 



+000000000077 ENDMK 

000000000074 ( 

000000000073 COMMA 

000000000061 SLASH 

000000000047 P 

000000000040 MINUS 

000000000034 ) 

000000000033 POINT 

000000000031 I 

000000000030 H 



STO 
CLM 
ORA 
FAD 
RQL 
RNO 
ORA 
LXA 
TXL 
LDQ 
TOP 
TXH 
FDP 
STQ 
CLA 
ACL 
PBT 
CLM 
TXI 
STO 
TXH 
LDO 
FMP 
ACL 
PBT 
TXI 
CLM 
COM 
TXI 
ALS 
LXD 
TIX 
STO 
TXI 
SXD 

LXD 
LXD 
LXD 
TRA 



OCT 
BCD 
BCD 
BCD 
BCD 
BCD 
BCD 
BCD 
BCD 
BCD 



Kl 

F 
8 

K3 

D*4 

T2»4*0 

D 

T4 

T 5*4*49 

TAB»4 

F 

F 

K4 



T2»0 

F 

T3*4*49 

F 

TAB* 4 
K5 

T2»0 



T2»0 

18 

COUNT » 4 

M0RE»4fl 

DATUM 

D0NE»0»** 

COUNT #4 

LIST * ENTRY POINT USE 

AX4»4 

AXlfl 

AX2»2 

1*4 

END OF PROGRAM READ* 
*********** 

CONSTANTS AND WORKING 

77 

100000 C 

100000* 

100000/ 

100000P 

100000- 

100000) 

100000* 

100000 1 

100000H 



UPDATE FIELD COUNT* AND 

IF EXHAUSTED* THEN 

SAVE THE CONVERTED FIELD* AND 

* (FIELD REPEAT COUNT ) EXAMINE FORMAT 
OTHERWISE* GO EXAMINE LIST* 

BY FIELD* 

SET XR4 FOR INDICATED RETURN* 
RESTORE THE ORIGINAL CtXRD* 
RESTORE THE ORIGINAL C(XR2>» AND 

* GO STORE (OR CONVERT) INPUT* 



» * * * 



*#**»********** 



STORAGE USED BY DBC* 
CCTEST-12* 
CCTEST-11* 
CCTEST-10* 
CCTEST-9* 
CCTEST-8* 
CCTEST-7* 
CCTEST-6* 
CCTEST-5. 
CCTEST-4* 
CCTEST-3* 



DBC/458 
DBC/459 
DBC/ 460 
OBC/461 
DBC/462 
DBC/463 
DBC/464 
PBC/465 
DBC/466 
DBC/467 
DBC/468 
DBC/469 
BBC/470 
DBC/471 
0BC/472 
DBC/473 
DBC/474 
DBC/475 
DBC/476 
DBC/477 
0BC/478 
DBC/479 
OBC/480 
DBC/ 481 
DBC/482 
DBC/483 
DBC/484 
DBC/ 48 5 
D6C/486 
DBC/487 
DBC/488 
DBC/489 
DBC/490 

•DBC/491 
DBC/492 
DBC/493 
DBC/494 
DBC/495 
DBC/496 
DBC/497 
DBC/498 

♦DBC/499 
DBC/ 5 00 
D8C/501 
DBC/5015 
DBC/502 
DBC/503 
DBC/ 5 04 
DBC/505 
DBC/506 
DBC/507 
DBC/508 
DBC/509 
DBC/510 



u 



u 



00624 000000000026 

00625 000000000025 

00626 

00626 +000000000001 

00627 +000000000012 

00630 00000 00011 

00631 000000000060 

00632 000000000020 

00633 000000000014 

00634 -0 00000 00000 

00635 +233000000000 

00636 +252000000000 

00637 +000400000000 

00640 +335000000000 

00641 +043000000000 

00642 +375536246150 

00643 +372430204755 

00644 +366700324573 

00645 +363546566774 

00646 +360436770626 

00647 +354713132675 

00650 +351557257061 

00651 +346445677215 

00652 +342726145174 

00653 +337570120775 

00654 +334454732312 

00655 +330741367020 

00656 +325601137163 

00657 +322464114134 
00660 +316755023372 

00662 +310473426555 

00663 +304770675742 

00664 +301623713116 

00665 +276503074076 

00666 +273402374713 

00667 +267635456171 

00670 +264512676456 

00671 +261410545213 

00672 +255647410337 

00673 +252522640262 

00674 +247417031702 

00675 +243661534466 

00676 +240532743536 

00677 +235425434430 

00700 +231674055530 

00701 +226543212741 

00702 +223434157116 

00703 +217706576512 

00704 +214553630410 

00705 +211443023471 

00706 +205721522451 

00707 +202564416672 
00710 +177452013710 



FCC 


BCD 


100000F 


EX PON 


BCD 


100000E 


CCTEST 


BSS 





ONE 


DEC 


1 


TEN 


DEC 


10 


L(9) 


PZE 


9 


BLANK 


BCD 


100000 


PLUS 


BCD 


100000+ 


NEGAT 


BCD 


100000- 


M2E 


MZE 




Kl 


DEC 


155B8 


K2 


DEC 


170B8 


K3 


DEC 


1B9 


IC4 


DEC 


221B8 


K5 


DEC 


35B8 




OCT 


375536246150 




OCT 


372430204755 




OCT 


366700324573 




OCT 


363546566774 




OCT 


360436770626 




OCT 


354713132675 




OCT 


351557257061 




OCT 


346445677215 




OCT 


342726145174 




OCT 


337570120775 




OCT 


334454732312 




OCT 


330741367020 




OCT 


325601137163 




OCT 


322464114134 




OCT 


316755023372 




OCT 


313612334310 




OCT 


310473426555 




OCT 


304770675742 




OCT 


301623713116 




OCT 


276503074076 




OCT 


273402374713 




OCT 


267635456171 




OCT 


264512676456 




OCT 


261410545213 




OCT 


255647410337 




OCT 


252522640262 




OCT 


247417031702 




OCT 


243661534466 




OCT 


240532743536 




OCT 


235425434430 




OCT 


231674055530 




OCT 


226543212741 




OCT 


223434157116 




OCT 


217706576512 




OCT 


214553630410 




OCT 


211443023471 




OCT 


205721522451 




OCT 


202564416672 




OCT 


177452013710 



CCTEST-2, 

CCTEST-1* 

INDEXING 

CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 

48-TABLE 

47- TABLE 

46-TABLE 

45-TABLE 

44-TABLE 

43-TABLE 

42-TABLE 

41-TABLE 

40-TABLE 

39-TABLE 

38-TABLE 

37-TABLE 

36-TABLE 

35-TABLE 

34-TABLE 

33-TABLE 

32-TABLE 

31-TABLE 

30-TABLE 

29-TABLE 

28-TABLE 

27-TABLE 

26-TABLE 

25-TABLE 

24-TABLE 

23-TABLE 

22-TABLE 

21-TABLE 

20-TABLE 

19-TABLE 

18-TABLE 

17-TABLE 

16-TABLE 

15-TABLE 

14-TA8LE 

13-TABLE 

12-TABLE 

11-TABLE 

10-TABLE 



ADDRESS 
USED BY 
USED BY 
USED BY 
USED BY 
USED BY 
USED BY 
USED BY 
USED BY 
USED BY 
USED BY 
USED BY 
USED BY 
USED BY 
USED BY 
USED BY 
USED BY 
USED BY 
USED BY 
USED BY 
USED BY 
USED BY 
USED BY 
USED BY 
USED BY 
USED BY 
USED BY 
USED BY 
USED BY 
USED BY 
USED BY 
USED BY 
USED BY 
USED BY 
USED BY 
USED BY 
USED BY 
USED BY 
USED BY 
USED BY 
USED BY 
USED BY 
USED BY 
USED BY 
USED BY 
USED BY 
USED BY 
USED BY 
USED BY 
USED BY 
USED BY 
USED BY 



FOR 
DBC 
DBC 
DBC 
DBC 
DBC 
DBC 
DBC 
DBC 
DBC 
DBC 
DBC 
DBC 
DBC 
DBC 
DBC 
DBC 
DBC 
DBC 
DBC 
DBC 
DBC 
DBC 
DBC 
DBC 
DBC 
DBC 
DBC 
DBC 
DBC 
DBC 
DBC 
DBC 
DBC 
DBC 
DBC 
DBC 
DBC 
DBC 
DBC 
DBC 
DBC 
DBC 
DBC 
DBC 
DBC 
DBC 
DBC 
DBC 
DBC 
DBC 
DBC 



ABOVE LIST* 



DBC/ 5 11 

DBC/512 

DBC/513 

DBC/514 

DBC/5*5 

DBC/5155 

DBC/516 

DBC/517 

DBC/518 

DBC/519 

DBC/520 

DBC/521 

DBC/522 

DBC/523 

DBC/524 

DBC/525 

DBC/526 

DBC/527 

DBC/528 

DBC/529 

DBC/530 

DBC/531 

DBC/532 

DBC/533 

DBC/534 

DBC/535 

DBC/536 

DBC/ 5 37 

DBC/538 

DBC/539 

DBC/ 540 

DBC/541 

DBC/542 

DBC/543 

DBC/544 

DBC/545 

DBC/546 

DBC/ 547 

DBC/548 

DBC/549 

DBC/550 

DBC/551 

DBC/552 

DBC/553 

DBC/554 

DBC/555 

DBC/556 

DBC/557 

DBC/558 

DBC/559 

DBC/560 

DBC/561 

DBC/562 

DBC/563 






L 



00711 


♦173734654500 




OCT 


173734654500 


Q9-TABLE 


USED 


BY 


DBC* 


DBC/564 
DBC/565 


00712 


+170575360400 




OCT 


170575360400 


08-TABLE 


USED 


BY 


DBC* 


00713 


+165461132000 




OCT 


165461132000 


07-TABLE 


USED 


BY 


DBC. 


DBC/ 5 66 


00714 


+161750220000 




OCT 


161750220000 


06-TABLE 


USED 


BY 


DBC* 


DBC/567 


00715 


+156606500000 




OCT 


156606500000 


05-TABLE 


USED 


BY 


DBC* 


DBC/568 


00716 


+153470400000 




OCT 


153470400000 


04-TABLE 


USED 


BY 


DBC. 


DBC/569 


00717 


+147764000000 




OCT 


147764000000 


03-TABLE 


USED 


BY 


DBC* 


DBC/570 


00720 


+144620000000 ' 




OCT 


144620000000 * 


02- TABLE 


USED 


B* 


DBC* 


D8C/571 


00721 


+141500000000 




OCT 


141500000000 


01-TABLE 


USED 


BY 


DBC* 


DBC/572 


00722 


+136400000000 


TAB 


OCT 


136400000000 


OO-TABLE 


USED 


BY 


DBC* 


DBC/ 5 73 




77731 


COMMON 


ORG 


-39 










DBC/ 5 74 




77731 


INT 


BSS 


1 


VARIABLE 


USED 


BY 


DBC* 


DBC/575 




77732 


DIG 


BSS 


1 


VARIABLE 


USED 


BY 


DBC* 


DBC/ 5 76 




77733 


DATUM 


BSS 


1 


VARIABLE 


USED 


BY 


DBC* 


DBC/577 




77734 


MQ 


BSS 


1 


VARIABLE 


USED 


BY 


DBC* 


DBC/ 5 78 




77735 


MQR 


BSS 


1 


VARIABLE 


USED 


BY 


DBC* 


DBC/579 




77736 


MOD 


BSS 


1 


VARIABLE 


USED 


BY 


DBC* 


DBC/580 




77737 


PEX 


BSS 


1 


VARIABLE 


USED 


BY 


DBC* 


DBC/581 




77740 


EXP 


BSS 


1 


VARIABLE 


USED 


BY 


DBC* 


DBC/582 




77741 


ND 


BSS 


1 


VARIABLE 


USED 


BY 


DBC* 


DBC/583 




77742 


DG 


BSS 


1 


VARIABLE 


USED 


BY 


DBC* 


D8C/584 




77743 


N 


BSS 


1 


VARIABLE 


USED 


BY 


DBC* 


DBC/585 




77744 


E 


BSS 


1 


VARIABLE 


USED 


BY 


DBC* 


DBC/586 




77745 


F 


BSS 


1 


VARIABLE 


USED 


BY 


DBC* 


DBC/ 5 87 




77746 


U 


BSS 


1 


VARIABLE 


USED 


BY 


DBC* 


DBC/588 




77747 


V 


BSS 


1 


VARIABLE 


USED 


BY 


DBC* 


DBC/589 




77750 


D 


BSS 


1 


VARIABLE 


USED 


BY 


DBC* 


DBC/590 




77751 


BCD 


BSS 


14 


VARIABLE 


USED 


BY 


DBC* 


DBC/591 










END OF CONSTANTS AND WORKING STORAGE USED 


BY DBC* 


DBC/592 










********** 


********** 


******** 


* * *DBC/593 




rift Ann 




CND 




... 








DBC/ 594 



w 



u 



O 



TO 



TO 
TO 



TO 



TO 



OOOOO 
00001 
00002 
00003 



OOOOO 
00001 
00002 
00003 
00004 
00005 
00006 
00007 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 
00020 
•00021 
0O022 
00023 
00024 
00025 
00026 
00027 
00030 
00031 
00032 
00033 
00034 
00035 
00036 
00037 
00040 
00041 
00042 
00043 
00044 
00045 
00046 
00047 
00050 
00051 
00052 



AB5 

OOOOO 
OOOOO 00211 
OOOOO 7776* 
742362303460 
OOOOO 00003 



42000 
53400 
53400 
76200 
70000 
OOOOO 
02000 
60000 
63400 
63400 
53400 
70000 
60000 
07400 
OOOOO 
76700 
OOOOO 
70000 
60000 
70000 
60000 
07400 
00010 
76700 
OOOOO 
50000 
60200 
50000 
60200 
00001 
70000 
OOOOO 
02000 
50000 
60200 
50000 
76000 
32000 
32000 
50000 
60200 
50000 
76000 



OOOOO 
77767 

2 OOOOO 

1 00016 

2 00020 
00321 
77776 
00007 
4 00002 

77770 

1 00016 

2 00020 

1 00026 
77777 
77771 

2 00156 
00021 
00001 
00064 
77772 
77770 
77773 
77771 
2 00156 
00031 
00003 
00063 
77776 
77770 
77777 

77771 

1 00112 
77776 
00073 
OOOOO 
77770 
77776 
77772 
00006 
77774 
77770 
77771 
77777 
77773 
00006 



ORG 
PZE 
PZE 
BCO 



ORG 

COMMON SYN 

B17 HPR 

LXD 

LXD 

RDBCD RCD 
CPY 
TXL 
TRA 

Bl STQ 
SXD 
SXD 
LXD 
CPY 
STQ 
TSX 

B2 TXL 
ALS 

B3 TXL 

85 CPY 
STQ 
CPY 
STQ 
TSX 

B4 TXL 
ALS 
TXL 

B6 CAL 
SLW 
CAL 
SLW 

B13 TXL 

B14 CPY 
TXL 
TRA 

B9 CAL 
SLW 
CAL 
COM 
ANA 
ANS 
CAL 
SLW 
CAL 
COM 



CONTROL CARD FOR CSH* 



C7+13 

COMMON 

KCSH) 

3 

END OF CSH CONTROL CARD 

CSH FOR FORTRAN II 



-9 

0,2 NON-HOLLERITH CHARACTER ON CARD 

B 2fl RESTART AFTER ERROR 

B3»2 X 



L 

Bl 

2*4 

LS 

B2*l 

B3f2 

B4»l 

R 

RS 

Cl»2 

B5 

1 

C2 

8L 

LS 

8R 

RS 

Cl»2 

B6»0»8 

3 

C3 

L 

LS 

R 

RS 

B7»l*l 

L 

B8 

B17 

LS 

L 

LOS 

LZ 

LS 

RS 

R 

RDS 



END OF FILE EXIT 

SET LEFT SUM 

SAVE INDEX REGISTERS 

X 

SET DIGIT ROW COUNT 
COPY 9 RIGHT ROW AND 
SET RIGHT SUM 
ENTER CONVERSION LOOP 
LEAVE CONVERSION LOOP 

INITIALIZE BCD RECORD 

COPY 8 ROW AND 

USE AS SUM 

X 

X 

ENTER CONVEKSlUN LOOK 

LEAVE CONVERSION LOOP 

ADD 8 TIMES 8 ROW 

X 

USE 9 ROW AS SUM 

X 

X 

X 

TEST FOR ZERO ROW 

COPY LEFT ROW AND 

TEST FOR END OF RECORD 

SAVE LEFT ZONE SUM 

X 

FORM INDICATOR FOR 

ZERO AND X AND / OR Y 

IN LEFT ROWS 

X 

SAVE RIGHT ZONE SUM 

X 

FORM INDICATOR FOR 

ZERO AND X AND/OR Y 



CSH/C01 
CSH/C02 
CSH/C03 
CSH/C04 
CSH/C05 
CSH/C06 
CSH/C07 
CSH 0001 
CSH 0002 
CSH 0003 
CSH 0004 
CSH 0005 
CSH 0006 
CSH 0007 
CSH 0008 
CSH 0009 
CSH 0010 
CSH 0011 
CSH 0012 
CSH 0013 
CSH 0014 
CSH 0015 
CSH 0016 
CSH 0017 
CSH 0018 
CSH 0019 
CSH 0020 
CSH 0021 
CSH 0022 
CSH 0023 
CSH 0024 
CSH 0025 
CSH 0026 
CSH 0027 
CSH 0028 
CSH 0029 
CSH 0030 
CSH 0031 
CSH 0032 
CSH 0033 
CSH 0034 
CSH 0035 
CSH 0036 
CSH 0037 
CSH 0038 
CSH 0039 
CSH 0040 
CSH 0041 
CSH 0042 
CSH 0043 
CSH 0044 
CSH 0045 
CSH 0046 



"> I 





OOO 5 3 


-0 


32000 





77775 




ANA 


RZ 




00054 





32000 





77771 




ANS 


RS 




00055 





07400 


2 


00156 




TSX 


Cl»2 


TO 


00056 


-3 


00000 





00132 




TXL 


B15 




00057 





60200 





77767 




SLW 


TP 




00060 





76700 





00002 




ALS 


2 




00061 





36100 





77767 




ACL 


TP 




, 00062 





76700 





00001 




ALSfl 




00063 





36100 


1 


00000 


C3 


ACL 


0*1 




00064 





60200 


1 


00000 


C2 


SLW 


0*1 




00065 


2 


00001 


1 


00174 




TIX 


C7»lfl 




00066 





50200 





00162 


Cll 


CLS 


C4 




00067 





60100 





00162 




STO 


C4 




00070 


-0 


73400 


1 


00003 


(CSH) 


PDX 


RDBCDt 1 




00071 


-0 


12000 


2 


00001 




TMI 


1*2 


TO 


00072 


1 


00000 





00157 


CIO 


TXI 


C9 




00073 


-0 


50000 





77776 


B8 


CAL 


L 




00074 


-0 


32000 





77770 




ANA 


LS 




00075 


-0 


10000 





00000 




TNZ 


B17 




00076 


-0 


50000 





77776 


BIO 


CAL 


L 




00077 


-0 


60200 





77770 




ORS 


LS 




00100 





70000 





77777 




CPY 


R 




00101 


-Q 


50000 





77777 




CAL 


R 




00102 


-0 


32000 





77771 




ANA 


RS 




00103 


*-0 


10000 





00000 




TNZ 


B17 




00104 


-o 


50000 





77777 


Bll 


CAL 


R 




00105 


-0 


60200 





77771 




ORS 


RS 




00106 


-2 


00001 


1 


00126 




TNX 


B12»l»l 




00107 





07400 


2 


00156 




TSX 


Cl»2 


TO 


00110 


-3 


00000 





00035 




TXL 


B13 


TO 


00111 


-3 


00000 





00063 




TXL 


C3 




00112 


-0 


50000 





77772 


B7 


CAL 


8L 




00113 


-0 


50100 





77770 




ORA 


LS 




00114 





60200 





77772 




SLW 


LOS 




00115 





70000 





77774 




CPY 


LZ 




00116 


-0 


32000 





77774 




ANA 


LZ 




00117 





60200 





77770 




SLW 


LS 




00120 


-0 


50000 





77773 




CAL 


8R 




00121 


-0 


50100 





77771 




ORA 


RS 




00122 





60200 





77773 




SLW 


ROS 




00123 





70000 





77775 




CPY 


RZ 




00124 


-0 


32000 





77775 




ANA 


RZ 




00125 





60200 





77771 




SLW 


RS 




00126 





07400 


2 


00156 


B12 


TSX 


Cl»2 


TD 


00127 


-3 


00000 





00036 




TXL 


B14 




00130 





76700 





00004 




ALS 


4 


TO 


00131 


-3 


00000 





00063 




TXL 


C3 




00132 


-0 


50000 





77772 


B15 


CAL 


LOS 




00133 


-0 


50100 





77774 




ORA 


LZ 




00134 


-0 


50100 





77776 




ORA 


L 




00135 





76000 





00006 




COM 






00136 





60200 





77770 




SLW 


LS 




00137 


-0 


50000 





77773 




CAL 


RDS 




00140 


-0 


50100 


Q 


77775 




ORA 


RZ 



IN RIGHT ROWS 

X 

ENTER CONVERSION LOOP 

LEAVE CONVERSION LOOP 

MULTIPLY INDICATOR 

BITS BY TEN 

X 

X 

ADD TO BCD RECORD 

STORE IN BCD RECORD 

COUNT WORDS 

INVERT ROW SWITCH AND 

TEST FOR RIGHT ROW DONE 

RESTORE ROW COUNT 

TRANSFER IF RIGHT ROW DONE 

GO CONVERT RIGHT ROW 

TEST LEFT ROW FOR 

ILLEGAL DOUBLE PUNCH 

X 

FORM LOGICAL SUM 

OF LEFT ROWS 

COPY RIGHT ROW AND 

TEST FOR ILLEGAL 

DOUBLE PUNCH 

X 

FORM LOGICAL SUM OF 

RIGHT ROWS 

TEST FOR ZONE ROWS 

ENTER CONVERSION LOOP 

LEAVE CONVERSION LOOP 

ADD TO BCD RECORD 

ADD 8 LEFT ROW TO 

LEFT LOGICAL SUM 

X 

COPY ZERO LEFT AND 

FORM INDICATOR FOR 

BOTH DIGIT AND ZERO 

ADD 8 RIGHT ROW TO 

RIGHT LOGICAL SUM 

X 

COPY ZERO RIGHT AND 

FORM INDICATOR FOR 

BOTH DIGIT AND ZERO 

ENTER CONVERSION LOOP 

LEAVE CONVERSION LOOP 

SHIFT TO ZONE POSITION 

X 

FORM INDICATOR FOR 

BLANK COLUMNS IN 

LEFT HALF OF CARD 

X 

X 

FORM INDICATOR FOR 

BLANK COLUMNS IN 



CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 



0047 
0048 
0049 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 
0058 
0059 
0060 
0061 
0062 
0063 
0064 
0065 
0066 
0067 
0068 
0069 
0070 
0071 
0072 
0073 
0074 
0075 
0076 
0077 
0078 
0079 
0080 
0081 
0082 
0083 
0084 
0085 
0086 
6087 
0088 
0089 
0090 
0091 
0092 
0093 
0094 
0095 
0096 
0097 
0098 
0099 
0100 



Vrt 



u 



o 



TD 



TD 



00141 


-0 


50100 





77777 




OR A 


R 


00142 





76000 





00006 




COM 




00143 





60200 





77771 




SLW 


RS 


00144 





07400 


2 


00156 




TSX 


Cl»2 


00145 


-3 


00000 





00153 




TXL 


B16 


00146 





60200 





77767 




SLW 


TP 


00147 





76700 





00001 




ALS 


1 


00150 





36100 





77767 




ACL 


TP 


00151 





76700 





00004 




ALS 


4 


00152 


-3 


00000 





00063 




TXL 


C3 


00153 


-0 


53400 


1 


00016 


B16 


LXD 


B2»l 


00154 


-0 


53400 


2 


00020 




LXD 


B3t2 


00155 





02000 


4 


00003 




TRA 


3#4 


00156 


-0 


63400 


1 


00162 


CI 


SXD 


C4»l 


00157 


-0 


50000 


4 


00001 


C9 


CAL 


1»4 


00160 





40100 





00174 




ADM 


C7 


00161 





56000 





77770 


C6 


LDQ 


LS 


00162 


-3 


00000 





00165 


C4 


TXL 


C8»««* 


00163 





40100 





00174 




ADM 


C7 


00164 





56000 





77771 




LDQ 


RS 


00165 





62100 





00064 


C8 


STA 


C2 


00166 





62100 





00063 




STA 


C3 


00167 


3 


00001 


1 


00173 




TXH 


C5»l»l 


00170 


-0 


60000 





77767 




STQ 


TP 


00171 


-0 


50000 





77767 




CAL 


TP 


00172 





10000 





00066 




TZE 


Cll 


00173 





53400 


1 


00174 


C5 


LXA 


C7f 1 


00174 


-0 


75400 





00006 


C7 


PXD 


6 


00175 


-0 


76300 





00001 




LGL 


1 


00176 





76700 





00005 




ALS 


5 


00177 


-0 


76300 





00001 




LGL 


1 


00200 





76700 





00005 




ALS 


5 


00201 


-0 


76300 





00001 




LGL 


1 


00202 





76700 





00005 




ALS 


5 


00203 


-o 


76300 





00001 




LGL 


1 


00204 





76700 





00005 




ALS 


5 


00205 


-0 


76300 





00001 




LGL 


1 


00206 





76700 





00005 




ALS 


5 


00207 


-0 


76300 





00001 




LGL 


1 


00210 





02000 


2 


00002 
77767 




TRA 
ORG 


2*2 

COMMON 










77767 


TP 


BSS 


1 










77770 


LS 


BSS 


1 










77771 


RS 


BSS 


1 










77772 


LDS 


BSS 


1 










77773 


RDS 


BSS 


1 










77774 


LZ 


BSS 


1 










77775 


RZ 


BSS 


1 










77776 


L 


BSS 


1 










77777 


R 


BSS 


1 










77772 


8L 


SYN 


LDS 










77773 


8R 


SYN 


RDS 






. /_ 




00000 




END 





RIGHT HALF OF CARD 

X 

X 

ENTER CONVERSION LOOP 

LEAVE CONVERSION LOOP 

MULTIPLY INDICATOR 

BITS BY 3 AND 

SHIFT TO ZONE POSITION 

X 

X 

RESTORE INDEX REGISTERS 

AND RETURN TO MAIN 

PROGRAM 

SAVE ROW COUNT 

INITIALIZE ADDRESSES 

X ADD 6 

OBTAIN LEFT SUM 

TRANSFER IF LEFT ROW 

RIGHT ROW* ADD 6 MORE 

OBTAIN RIGHT SUM AND 

SET BCD RECORD ADDRESS 

X 

SKIP TEST IF DIGIT ROW 

TEST FOR NO SUM 

X 

X 

SET WORD COUNT 

CONVERT ROW 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

EXIT FOR ROW PROCEDURE 

TEMPORARY 
LEFT SUM 
RIGHT SUM 
LEFT DIGIT SUM 
RIGHT DIGIT SUM 
LEFT ZERO ROW 
RIGHT ZERO ROW 
LEFT ROW 
RIGHT ROW 
8 LEFT ROW 
8 RIGHT ROW 



CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 
CSH 



0101 
0102 
0103 
0104 
0105 
0106 
0107 
0108 
0109 
0110 
0111 
0112 
0113 
0114 
0115 
0116 
0117 
0118 
0119 
0120 
0121 
0122 
0123 
0124 
0125 
0126 
0127 
0128 
0129 
0130 
0131 
0132 
0133 
0134 
0135 
0136 
0137 
0138 
0139 
0140 
0141 
0142 
0143 
0144 
0145 
0146 
0147 
0148 
0149 
0150 
0151 
0152 
0153 



&i 



00000 
00001 
00002 
0080 3 



ABS 



00000 
00000 



00000 
00025 
00000 



746362303460 

OOO00 00000 



TD 
TD 



00001 
0OGO2 
00003 
00004. 
00005 
00006 
00O07 
00010 
00011 
00012 
00013 
000 14 
00015 
00016 
00017 
00020 
00021 
00022 
00023 
00024 



63400 
76000 
76100 
5OG0O 
62100 
50000 
60100 
76200 
53400 
70000 
77777 
0000 1 
76000 
00000 
53400 
02000 
76400 
50000 
00000 
00000 
42000 



00000 
00022 
00012 
00000 
00001 
00011 
00023 
00015 
00177 
00023 
00011 
00011 
00016 
00012 
00000 
OO022 
00003 
00377 
00024 
©0006 
00020 
O00O0 



ORG 
PZE 
PZE 
BCD 
PZE 

ORG 

RTD SXD 

RTT 

nsm HOP 

CLA 
STA 
CLA 

REP STO 
RDS 
LXD 

CPY CPY 
TXI 
TXI 
RTT 

ERR «** 

RES LXD 
TRA 

TRY BST 

CLA 

X2 TXI 

BAC TXI 

BAD HPR 
' END 



CONTROL CARD FOR TSH# 



BA0+1 



KTSW 

END OF TSH 



X2»2 

RTD 

1*4 

CPY 

BAC 

ERR 

127fl 

BAC* 2 

**2 

CPY*2*-1 

RES*4*1 



X2»2 

3*4 

127*1 

BAD 

REP 

TRY 

0*3 



CONTROL CARD* 



SAVE INDEX REGISTER 

CLEAR RTT INDICATOR 

X 

OBTAIN ADDRESS OF 1ST 

LOCATION FOR COPY 

INITIALIZE TAPE CHECK TEST 

TO REREAD AFTER 1ST ERROR* 

SELECT TAPE 

SET IR2 TO ZERO 

READ TAPE RECORD OF 

N WORDS 

EOF (END OF LIST) 

EOR REDUNDANCY TEST 

IF ERROR* REREAD 

RETURN TO MAIN 

PROGRAM FOR EOF 

PREPARE TO REREAD BAD 

RECORD 

X 

2ND ERaSR HALT 



TSH/C01 

TSH/C02 

TSH/C03 

TSH/C04 

TSH/C05 

TSH/C06 

TSH/C07 

TSHOOO 

TSH001 

TSH002 

TSH003 

TSH004 

TSH005 

TSH006 

TSH007 

TSH008 

TSH009 

TSH010 

TSH011 

TSH012 

TSH013 

TSH014 

TSH015 

TSH016 

TSH017 

TSH018 

TSH019 

TSH020 

TSH021 

TSH022 



/> 



/ 



u 



(J 



REM 704 FORTRAN II 
REM 704 FORTRAN II 



/ DBC / 12 JAN 59* 
/ BOC / 12 JAN 59. 

704 FORTRAN II 



00000 

00000 00001 00673 

00001 00000 77552 

00002 742224233460 

00003 00000 00001 

00004 742631433460 

00005 -0 00000 00037 



/ BDC / 12 JAN 59. 



THE FOLLOWING CONVENTIONS ARE USED IN THIS LISTING= 

** IN THE ADDRESS* TAG* OR DECREMENT OF AN INSTRUCTION 

INDICATES THAT THIS FIELD WILL BE MODIFIED BY THE PROGRAM. 

» IN COL/36 INDICATES THE INSTRUCTION IS A TRANSFER OUT OF 

THIS LOGICAL BLOCK OR SUBROUTINE. 

C IN COL/34 INDICATES THE INSTRUCTION WAS CORRECTED. 

P IN COL/32 INDICATES THE INSTRUCTION WAS INSERTED (PATCH). 

******************************* 

CONTROL CARD FOR BDC* BDC/C01 

ORG BDC/C02 

P2E TAB+1»*1 BDC/C03 

P2E COMMON BDC/C04 

BCD HBDC) BDC/C05 

PZE (BDC) BDC/C06 

BCD KFIL) BDC/C07 

MZE (FID BDC/C08 

END OF BDC CONTROL CARD. BDC/C13 

******************************* 



00000 
00001 



00002 
00003 
00004 
00005 
00006 
00007 
00010 
00011 
00012 
00013 
00014 
00015 
00016 



00000 



745163453460 (RTN) 

02100 00002 (BDC) 



ORG 



76000 
62100 
50000 
62100 
40000 
62100 
50000 
63400 
07400 
53400 
50000 
60200 
00000 



00007 NEW 

00541 

00000 

00010 

00577 

00016 

00000 CALL 

00016 

00056 

00016 

00017 

00001 

00000 FX4 



00017 02100 00020 TRAP 



00020 -0 76000 00007 SEEK 

00021 -0 50000 00000 

00022 62100 00025 

00023 40000 00577 

00024 62100 00036 



BCD 
TTR 



LTM 
STA 
CAL 
STA 
ADD 
STA 
CAL 
SXD 
TSX 
LXD 
CAL 
SLW 
TXI 

TTR 



LTM 
CAL 
STA 
ADD 
STA 



BDC/001 
BDC/002 
BDC/003 
BDC/0035 



(BDC)/ CALLS»LINE»PRINT. CALLER=MAIN PROGRAM. 

(BDC) CONTROLS BINARY TO DECIMAL CONVERSION AND OUTPUT. 

l(RTN) 

NEW INSTRUCTION EXECUTED IN LOCATION l.BDC/004 

NEW * ENTRY POINT FROM MAIN PROGRAM (C(AC)~ ADDRESS OF OUTPUTBDC/005 

ROUTINE TO HANDLE CURRENT OUTPUT* AND C(0) = LOCATION OF THE BDC/006 

BDC/008 
BDC/009 
BDC/010 
BDC /Oil 
BDC/012 
BDC /0 13 
BDC/014 
BDC/015 
BDC/016 
BDC/017 
BDC/018 
BDC/019 
BDC/020 
BDC/021 
l.BDC/022 
BDC/023 
BDC/024 
BDC/025 
BDC/026 
BDC/027 
BDC /O 28 
BDC/029 



rilDOCNT CflDMAT CTATCMCWT! „ 

SET FILLW TO CALL THE INDICATED 
TYPE TYPE OF OUTPUT ROUTINE. 

SET OUTPUT FORMAT STATEMENT 
CALL LOCATION. 

ONE SET EXIT 

FX4 TO MAIN PROGRAM. 

** OBTAIN FORMAT STATEMENT 

FX4*4 FOR SCAN. 

LINE*4 * GO SCAN FORMAT. 

FX4*4 WHEN DONE* RESTORE C(XR4). 

TRAP SET LOCATION 1 FOR FUTURE 

1 TRAP TRANSFER TO SEEK* AND 
♦*,0*** * TRANSFER CONTROL TO MAIN PROGRAM. 
THE MAIN PROGRAM CONTROLS ALL INDEXING OF THE LIST. 

SEEK INSTRUCTION EXECUTED IN LOCATION 

SEEK ■ REENTRY POINT FROM MAIN PROGRAM (C(0)= LOCATION OF 
THE ADDRESS OF THE NEXT OUTPUT NUMBERS). 

PICKUP NTR INSTRUCTION* AND 
SET LOCATION 

SETL OF OUTPUT NUMBERS. 

ONE SET LOCATION FOR 

OUT RETURN TO MAIN PROGRAM. 



<V 



JO I 



00025 


-0 50000 00000 


SETL 


CAL ♦* 




00026 


60200 00031 




SLW GET 




00027 


56000 00042 




LDQ CLA 




00030 


-0 62000 00031 




SLQ GET 




00031 


50000 00000 


GET 


CLA ***** 




00032 


-0 63400 4 00016 




SXD FX4*4 




00033 


07400 4 00315 




TSX PRINT»4 




00034 


-0 53400 4 00016 




LXD FX4*4 




00035 


76000 00007 




ETM 




00036 


02100 00000 


OUT 


TTR ** 

END OF 

* * * * 


PROGRAM (BDCU 
*#****** 



BOC/030 
BDC/031 
BDC/032 
BOC/033 
BOC/034 
BDC/035 
BOC/036 
BOC/037 
BDC/038 
BDC/039 
BDC/040 
* * *BDC/041 
BDC/042 
(FID/ CALLS=FILLW. USES=(RTN>. CALLER=MAIN PROGRAM, BDC/043 

(FID CONTROLS TRANSMISSION OF ANY REMAINING OUTPUT FROM REC.BDC/044 



PICKUP LOCATION OF OUTPUT 

AND SET ADDRESS AND TAG OF GET. 

SET GET OP 

TO CLA. 

GET OUTPUT NUMBER. 

SAVE THE C(XR4)» AND 

* GO CONVERT AND PRINT OUTPUT. 
RESTORE THE CCXR4). 

REPEAT UNTIL LIST IS EXHAUSTED* 

* UNDER CONTROL OF THE MAIN PROGRAM. 

**************** 



00037 
00040 
00041 
00042 
00043 
00044 
00045 
00046 
00047 
00050 
00051 
00052 
00053 
00054 
00055 



40000 
62100 
76000 
50000 
40200 
10000 
50000 
40200 
10000 
63400 
07400 
53400 
50000 
00000 
02100 



00600 (FID 

00055 

00007 

00476 CLA 

00545 

00050 

77777 

00577 

00053 

00016 LAST 

00515 

00016 

00053 EXIT 

00000 FILLX 

00000 RET 



ADD 
STA 
LTM 
CLA 
SUB 
TNZ 
CLA 
SUB 
TZE 
SXD 
TSX 
LXD 
CAL 
TXI 
TTR 



TWO 
RET 

PACK 

FILT 

LAST 

WORD 

ONE 

EXIT 

FX4»4 

FILLW*4 

FX4*4 

EXIT 

(RTN)*0»** 

** 

END OF PROGRAM (FID. 
************ 



SET ADDRESS FOR 

RETURN TO MAIN PROGRAM. 

IF NO 

OUTPUT REMAINS 

IN REC BUFFER* 

OR IN. 

WORD INDICATOR* 

THEN 

* EXIT TO RESTORE ALL INDICATORS. 
OTHERWISE. SAVE THE C(XR4)» AND 

* 60 TRANSMIT REMAINING OUTPUT. 
RESTORE THE C(XR4)» AND 
PICKUP EXIT ADDRESS* AND 

* EXIT TO RESTORE ALL INDICATORS. 
THEN RETURN TO MAIN PROGRAM 

****************** 



00056 


—0 


63400 


4 


00135 


LINE 


SXD 


AX4*4 


00057 


-0 


63400 


1 


00133 




SXD 


AX1»1 


00060 


-0 


63400 


2 


00134 




SXD 


AX2*2 


00061 





76000 





00006 




COM 




00062 





73400 


2 


00007 


SEVEN 


PAX 


7*2 


00063 





62200 





00105 




STD 


UNIT 


00064 





60000 





77750 




STZ 


PEX 


00065 





07400 


4 


00544 




TSX 


RESET*4 


00066 





60100 





77745 




STO 


INT 


00067 





53400 


1 


00062 




LXA 


SEVEN. 1 


00070 





56000 


2 


77777 




LDQ 


-1*2 
CCLPAR * 


00071 


-0 


63400 


1 


00137 


CCLPAR 


SXD 


BX1*1 


00072 


-0 


63400 


2 


00140 




SXD 


BX2.2 


00073 


-0 


60000 





77752 




STQ 


MQR 


00074 





53400 


4 


77745 




LXA 


INT*4 


00075 


-0 


63400 


4 


00141 




SXD 


BX4*4 


00076 


-0 


63400 


4 


00274 




SXD 


GR0UPX*4 



LINE»4/ CALLS=RESET*FIELD»FILLW. USES=PRINT. CALLER* (BDC> • 
LINE SCANS THE FORMAT STATEMENT FOR EACH LINE OF OUTPUT. 

SAVE THE C(XR4} FOR RETURN. 

SAVE THE ORIGINAL CfXRl)* AND 

SAVE THE ORIGINAL C(XR2). 

COMPLEMENT THE C(AC)» AND 



BDC/045 
BDC/046 
BDC/047 
BDC/048 
BDC/049 
BDC/050 
BDC/051 
BDC/052 
BDC/053 
BDC/054 
BDC/055 
BDC/056 
BDC/057 
BDC/0575 
BDC/0576 
BDC/058 
♦BDC/059 
BDC/060 
BDC/156 
BDC/157 
BDC/156 
BDC/159 
BDC/160 
BDC/161 



SET XR2= -(CURRENT FORMAT LOC* > »ANDBDC/162 

UNIT DECREMENT* -(CURRENT UNIT). BDC/163 

SET PEX (SCALE FACTOR) * 0* AND BDC/164 

SET REC=BLANKS* PACK=REC» W0RD=1. BDC/165 

SET INT » 1. BDC/166 

SET XR1 » 7* AND PICKUP THE BDC/167 

1ST WORD OF CURRENT FORMAT. BDC/168 

A LPAREN IS MET IN FORMAT SCAN. BDC/169 

SAVE THE CURRENT CHARACTER COUNT* BDC/170 

SCAN POSITION* AND FORMAT WORD* BDC/171 

FOR POSSIBLE REPETITION OF GROUP. BDC/172 

SET GROUP CONTROL COUNT FOR THE BDC/173 

INDICATED NUMBER OF REPETITIONS* BDC/174 

AND SAVE FOR POSSIBLE RESCAN. BDC/175 

SCAN * ENTRY POINT FOR CCCMMA»CCSCFP*CCIOUT»CCHOUT*RESCAN. BDC/176 



« ENTRY POINT WHEN 



o 



(J 



00077 
00100 
00101 
00102 
00103 
00104 
00105 
00106 
00107 
00110 
00111 
00112 
00113 
00114 
00115 
00116 
00117 



60000 
00006 
53400 
56000 
76300 
34000 
00000 
00000 
34000 
00000 
76100 
60100 
50000 
76700 
40000 
76700 
36100 



77745 

00121 
00100 
77777 
00006 
00570 
00107 
00121 
00601 
00124 
00000 
77746 
77745 
00002 
77745 
00001 
77746 



SCAN 

SIX 

SCAN1 

SCAN2 

UNIT 

SCAN3 



00120 60100 77745 



00121 
00122 
00123 

00124 
00125 
00126 
00127 
00130 
00131 



00132 
00133 
00134 
00135 
00136 
00137 
00140 
00141 
00142 
00143 
00144 
00145 



00146 
00147 
00150 



-0 75400 
2 00001 1 
1 77777 2 



53400 
34000 
00014 
02000 
00001 
42000 



00000 
00000 
00000 
00000 

ooooo 

00000 

ooooo 
ooooo 
ooooo 
ooooo 
ooooo 
ooooo 



00311 
00103 
00101 

00126 
00567 
00130 
00146 
00125 
00005 



00146 
00071 
00152 
00157 
00162 
00165 
00167 
00173 
00212 
00217 
00243 
00254 
00146 



SCAN4 
SCAN5 



SCAN6 
SCAN7 
NCC 

SCANS 



AX1 
AX 2 
AX4 

BX1 
BX2 
BX4 

CXI 

cxz 

CX4 
FRMTR 



STZ INT 

TXI SCAN5.0.6 

LXD SIX.1 

LDG -lf2 

LGL 6 

CAS BLANK 

TXI SCAN3.0.** 

TXI*SCAN5»0 

CAS L<9) 

TXI SCAN6»0 

NOP 

STO 

CLA 

ALS 

ADD 

ALS 

ACL 



DIG 

INT 

2 

INT 

1 

DIG 

SCAN4 * ENTRY 
STO INT 

SCAN5 ~ ENTRY 
PXD XPRINT.O 
TIX SCAN2.1.1 
TXI SCAN1»2»-1 

SCAN6 * ENTRY 
LXD NCC*4 
CAS CCT£STt4 
TXI SCAN8.0.12 
TRA FRMTR.4 
TIX SCAN7.4.1 
HPR 5fl 

p ND OF PRQGR. 

*~* * * * * * 



CLEAR INT WORKING STORAGE* AND 

GO RESUME SCAN. 

RESET FORMAT CHARACTER COUNT • AND 

PICKUP NEXT FORMAT WORD. 

EXAMINE NEXT CHARACTER. 

AND IF BLANK. 

THEN 

GC EXAMINE NEXT CHARACTER. 

IF NOT BLANK. COMPARE WITH NINE. 

IF NON-NUMERIC COMPARE CCTEST. 

IF NUMERIC. THEN 

CONVERT 

SUCCESSIVE 

BCD 

DIGITS 

TO BINARY. 

TO SET INT= SCALE FACTOR* 
POINT USED BY CCSCFM* 

CURRENT FIELD OR GROUP CONTROL. 
POINT USED BY CCDCPT. 

CLEAR THE AC. AND UPDATE COUNT. 

WHEN NO CHARACTERS REMAIN. 

ADJUST SCAN POSITION. AND REPEAT. 
POINT USED BY CCDCPT. 

WHEN A NON-NUMERIC IS MET. 

SCAN LIST OF CONTROL CHARACTERS. 

AND IF EQUALITY IS FOUND* 
* TAKE THE INDICATED TRANSFER. 

IF NOT FOUND IN CONTROL LIST. THEN 

STOP* PRESS START TO CONTINUE. 
am LINEs 
* **#"* ******************* 



FRMTR / CONTROL 
TXI CCEDMK .0 
TXI CCLPAR.Of** 
TXI CCCMMA.O.** 
TXI CCSLSH.O.** 
TXI CCSCFP.O 
TXI CCSCFM.O.** 
TXI CCRPAR.O.** 
TXI CCDCPT.O.** 
TXI CCIOUT.O 
TXI CCHOUT.Q.** 
TXI CCFOUT.O.** 
TXI CCEOUT.O.** 
BSS 

******** 



TRANSFERS FOR FORMAT SCAN = 

END OF FORMAT STATEMENT. 
BEGIN FORMAT OR GROUP. 
END FIELD. 
END LINE OR RECORD. 
SCALE FACTOR PLUS. 
SCALE FACTOR MINUS. 
END FORMAT OR GROUP. 
ROUNDING OF OUTPUT NUMBER. 
DECIMAL OUTPUT. 
HOLLERITH FIELD OUTPUT. 
FIXED POINT OUTPUT. 
FLOATING POINT OUTPUT* 



* * * * * 



*«*'-»- *»■»**■#*•«•**»* 



07400 4 00275 
50000 00121 
62100 00317 



CCEDMK/ CALLS=FIELD.MAIN PROGRAM. 

CCEDMK » ENTRY POINT WHEN AN ENDMARK IS MET IN FORMAT SCAN* 
CCEDMK TSX FIELD.4 * 60 PROCESS UNDER FIELD CONTROL. 

CLA SCAN5 WHEN DONE. SET 

STA CNVSW CONVERSION SWITCH TO RESCAN. AND 



BDC/177 

BDC/178 

BDC/179 

BDC/180 

BDC/181 

BDC/182 

BDC/183 

BCm/184 

BDC/185 

BDC/186 

BDC/187 

BDC/188 

BDC/189 

BDC/190 

B0C/191 

BDC/192 

BDC/193 

BDC/194 

BDC/195 

BDC/196 

BDC/197 

BDC/198 

BDC/199 

BDC/200 

BDC/201 

BDC/202 

3DC/203 

BDC/204 

BDC/205 

BDC/2055 

BDC/210 

*BDC/211 
BDC/212 
BDC/213 
BDC/2135 
BDC/214 
8DC/215 
BDC/216 
BDC/217 
BDC/218 
BDC/219 
BDC/220 
BDC/221 
BDC/222 
BDC/223 
BDC/224 
BDC/225 

*BDC/226 
BDC/227 
BDC/2271 
BDC/2272 
BDC/2273 
BDC/2274 
BDC/2275 



(v) 



30 L 



00151 1 00000 00513 



TXI LIST.O 

END OF PROGRAM CCEDMK. 
************* 



* GO SEE IF LI5T IS EXHAUSTED. 



*********** 



BDC/2276 



00152 





07400 


4 


00275 


CCCMMA 


00153 


-0 


53400 


1 


00143 


RESUME 


00154 


-0 


53400 


2 


00144 




00155 





56000 





77751 




00156 


1 


00000 





00077 





CCCMMA/ CALLS=FIELD. 

CCCMMA * ENTRY POINT 
TSX FIELD, 4 

RESUME * ENTRY POINT 
LXD CX1»1 
LXD CX2*2 
LDQ MO 
TXI SCAN»0 

END OF PROGRAM CCCMMA* 

************ 



****************** 



00157 07400 4 00275 CCSLSH 

00160 07400 4 00515 

00161 1 00000 00153 



CCSLSH/ CALLS=FIELD»FILLW. USES=CCCMMA. 

CCSLSH = ENTRY POINT WHEN A SLASH IS MET 
TSX FIELD»4 * 

TSX FILLW.4 « 

TXI RESUME #0 * 

END OF PROGRAM CCSLSH. 

************* 



00162 50000 77745 

00163 60100 77750 

00164 1 00000 00077 



CCSCFP/ USES=LINE(SCAN). 
CCSCFP = ENTRY POINT WHEN 
CCSCFP CLA INT 
STO PEX 

TXI SCANtO * 

END OF PROGRAM CCSCFP. 
************* 



00165 50200 77745 CCSCFM 

00166 1 00000 00120 



CCSCFM/ USES-LINE (SCAN) • 
CCSCFM * ENTRY POINT WHEN 

CLS INT 

TXI SCAN4.0 * 

END OF PROGRAM CCSCFM. 
* * * * * ******** 



****** *BDC/2277 
BDC/2278 

USES=LINE(SCAN). BDC/228 

WHEN A COMMA IS MET IN FORMAT SCAN. BDC/229 

* GO PROCESS UNDER FIELD CONTROL. BDC/230 
USED BY CCSLSH»CCRPAR. BDC/231 

WHEN DONE. RESTORE CHARACTER COUNT*BDC/232 
RESTORE SCAN POSITION, AND BDC/233 

CURRENT FORMAT WORD. THEN BDC/234 

* GO RESUME SCAN. BDC/235 

BDC/236 

•BDC/237 
BDC/238 
BDC/239 
BDC/240 
BDC/241 
BDC/242 
BDC/243 
BOC/244 

•BDC/245 
BDC/246 
BDC/247 
BDC/248 
BDC/249 
BDC/250 
BDC/251 
BDC/252 

♦BDC/253 

BDC/254 

BDC/255 

A MINUS SIGN IS MET IN FORMAT SCAN»BDC/256 



IN FORMAT SCAN. 
GO PROCESS UNDER FIELD CONTROL. 
WHEN DONE, OUTPUT RECORD, AND 
GO RESUME SCAN. 



***************** 



A P IS MET IN FORMAT SCAN. 

PICKUP AND 

STORE SCALE FACTOR. 

GO RESUME SCAN. 

***************** 



SET INT MINUS* AND 
GO GET SCALE FACTOR. 

***************** 



00167 07400 4 00275 

00170 ~0 53400 4 00141 

00171 -2 00001 4 00153 

00172 1 00000 00270 



CCRPAR/ CALLS=FIELD. 
CCRPAR = ENTRY POINT 
CCRPAR TSX FIELD, 4 
LXD BX4,4 
TNX RESUME ,4*1 
TXI GROUP, 

END OF PROGRAM CCRPAR. 
************ 



USES=CCCMMA,RESCAN( GROUP). 

WHEN A RPAREN IS MET IN FORMAT SCAN. 

* GO PROCESS UNDER FIELD CONTROL. 
WHEN DONE, UPDATE GROUP COUNT, AND 

* GO RESUME SCAN, UNLESS 

* REPETITION OF GROUP IS INDICATED. 



****************** 



00173 50000 00211 CCDCPT 

00174 60100 00107 

00175 60000 77746 

00176 1 00000 00121 



CCDCPT/ USES=LINE(SCAN>. 

CCDCPT * ENTRY POINT WHEN 
CLA DTR 
STO SCAN3 
STZ DIG 
TXI SCAN5,0 * 



A POINT IS MET IN FORMAT SCAN. 
MODIFY SCAN INSTRUCTION 
TO TRANSFER INTO DCPT1. 
CLEAR DIG, AND 
GO RESUME SCAN. 



DCPT1 = REENTRY POINT FROM LINECSCANL 



BDC/257 
BDC/258 
BDC/259 

♦BDC/260 
BDC/261 
BDC/262 
BDC/263 
BDC/264 
BDC/265 
BDC/266 
BDC/267 
BDC/268 

♦BDC/269 
BDC/270 
BDC/271 
BDC/272 
BDC/273 
BDC/274 
BDC/2745 
BDC/275 
BDC/276 



Cfi'l 



u 



u 



^ 



00177 
00200 
00201 
00202 
00203 
00204 
00205 
00206 
00207 
00210 



34000 
00000 
76100 
60100 
00000 
60000 
56000 
60000 
56000 
00000 



00601 DCPT1 

00204 

00000 

77746 

00121 

77751 DCPT3 

00177 

00107 ■• 

77751 

00124 



00211 1 00000 00177 DTR 



00212 50000 00362 CCIOUT 



CAS 
TXI 
NOP 
STO 
TXI 
STQ 
LOG 
STQ 
LDQ 
TXI 

TXI 



LC9) 
DCPT3»0 

DIG 

SCAN5»0 
MQ 

DCPT1 
SCAN3 
MQ 

5CAN6*0 

END OF 

DCPT1*0 

* * * * 



DETERMINE THE 

NUMBER* MODULO TEN* 

OF DIGITS 

IN FRACTION. 

WHEN A CONTROL CHARACTER IS MET* 

RESTORE THE 

SCAN INSTRUCTION 

TO ITS 0RI6INAL FORM* AND 

GO COMPARE CHARACTER 

WITH CCTEST LIST. 



PROGRAM CCDCPT. 



******** 



INSTRUCTION CONSTANT. 
*********** 



****** 



00213 
00214 
00215 
00216 



00217 
00220 
00221 
00222 
00223 
00224 
00225 
00226 
00227 
00230 
00231 
00232 
00233 
00234 
00235 
00236 
00237 
00240 
00241 
00242 



00243 
00244 



62100 
53400 
63400 
00000 



00317 SETAD 
77745 
00511 
00077 



CCIOUT/ 

CCIOUT < 
CLA IAD 

SETAD * 
STA CNVSW 
LXA INT*4 
SXD C0UNT»4 
TXI SCAN»0 
END OF 

* * * * 



USES=LlNEfSCAN). 
» ENTRY POINT WHEN AN I IS MET IN FORMAT SCAN. 

PICKUP INTG* AND 
ENTRY POINT USED BY CCFOUT *CCEOUT. 

SET CONVERSION SWITCH. 
SET COUNT FOR THE 
REPETITION OF THIS FIELD* AND 
* GO RESUME SCAN. 



PROGRAM CCIOUT. 
******** 



****************** 



50000 
62100 
50000 
53400 
14000 
2 00001 
53400 
77777 
56000 
76300 
14000 
60200 
50000 
40000 
62100 
62100 
50000 
00001 
60100 
00000 



00476 
00232 
77777 
4 77745 
00224 



00230 
00100 
00227 
77777 
00006 
00240 
00000 
00232 
00577 
00232 
00476 
00577 
00224 
77777 
00077 



CCHOUT 



H0UT1 



H0UT2 
H0UT3 

H0UT4 



H0UT5 



CLA 
STA 
CAL 
LXA 
TNO 
TIX 
LXD 
TXI 
LDQ 
LGL 
TNO 
SLW 
CAL 
ADD 
STA 
STA 
CAL 
TIX 
STO 
TXI 



CCHOUT/ 
CCHOUT 

PACK 
H0UT4 
WORD 
INT*4 

MfM IT1 

H0UT3.1 

SIX*1 

H0UT2»2 

-1*2 

6 

H0UT5 

** 

H0UT4 

ONE 

H0UT4 

PACK 

ONE 

H0UT1*4 

WORD 

SCAN»0 

END OF 
* * * * 



USES=LINE(SCAN). 
■ ENTRY POINT WHEN 



»1 



.-1 



AN H IS MET IN FORMAT SCAN. 

SET ST0RIN6 ADDRESS 

TO CURRENT LOCATION IN REC BUFFER. 

PICKUP WORD INDICATOR. 

SET XR4 = "§ LD WIDTH. 

TURN OFF OVERFLOW INDICATOR. 

UPDATE COUNT* AND IF NO CHARACTERS BDC/309 

REMAIN* RESET CHARACTER COUNT* BDC/310 

RESET CURRENT FORMAT SCAN POSI TI0N»BDC/311 



BDC/277 
BDC/278 
BDC/279 
BDC/280 
BDC/281 
BDC/282 
BDC/283 
BDC/284 
BDC/285 
BDC/286 
BDC/287 
BDC/288 

•BDC/289 
BDC/290 
BDC/291 
BDC/292 
BDC/293 
BDC/294 
BDC/295 
BDC/296 
BDC/297 
BDC/298 
BDC/299 

♦BDC/300 
BDC/301 
BDC/302 
BDC/303 
BDC/304 
BDC/305 
BDC/306 
BDC/307 
BDC/308 



• 1 



PROGRAM CCHOUT. 
******** 



AND PICKUP NEXT FORMAT WORD. 
SHIFT SIX CHARACTERS 
INTO THE AC. 

STORE BCD WORD IN REC BUFFER* AND 
UPDATE 
STORING 
ADDRESS 

AND PACK ADDRESS. 
RESET WORD INDICATOR. 
REPEAT UNTIL WHOLE GROUP IS MOVED. 
SAVE INCOMPLETE WORD. AND 
* GO RESUME SCAN. 

****************** 



50000 00253 CCFOUT 
62100 00*27 



CCFOUT/ 
CCFOUT 

CLA FXDW 

STA CNV5 



USES*CCIOUT. 
a ENTRY POINT WHEN 



AN F IS MET IN FORMAT SCAN. 
SET CONVERSION ROUTINE 
FOR FIXED POINT 



BDC/312 
BDC/313 
BDC/314 
BDC/315 
BDC/316 
BDC/317 
BDC/318 
BDC/319 
BOC/320 
BDC/321 
BDC/322 
BDC/323 
BDC/324 
*BDC/325 
BDC/326 
BDC/327 
BDC/328 
BDC/329 
BDC/330 



00245 


62200 00441 




STD CNV6 




OUTPUT 


BDC/331 


00246 


62200 00435 




STD CLR 




(WITHOUT EXPONENT). 


BDC/332 


00247 


50200 77750 




CLS PEX 




SET EXP TO THE 


BDC/333 


00250 


60100 77742 




STO EXP 




NEGATIVE OF SCALE FACTOR. 


BDC/334 


00251 


50000 00331 




CLA FAD 




PICKUP FXD* AND 


BDC/335 


00252 


1 00000 00213 




TXI SETAD»0 

END OF PROGRAM CCFOUT. 


* 


GO SET CONVERSION SWITCH. 


BDC/336 
BDC/337 


00253 


00001 77742 


FXDW 


PZE CHAR.0.1 




CONSTANT USED BY CCFOUT. 


BDC/338 








************ 


* 


***************** 


*BDC/339 




f 




CCEOUT/ USESsCCIOUT. 






BDC/340 
BDC/341 








CCEOUT ■ ENTRY POINT WHEN 


AN E IS MET IN FORMAT SCAN. 


BDC/342 


00254 


50000 00262 


CCEOUT 


CLA FLTW 




SET CONVERSION ROUTINE 


BDC/343 


00255 


62100 00427 




STA CNV5 




FOR FLOATING POINT 


BDC/344 


00256 


62200 00441 




STD CNV6 




OUTPUT 


BDC/345 


00257 


62200 00435 




STD CLR 




(WITH EXPONENT). 


BDC/346 


00260 


50000 00340 




CLA FLT1 




PICKUP FLT* AND 


BDC/347 


00261 


1 00000 00213 




TXI SETADtO 

END OF PROGRAM CCEOUT* 


* 


GO SET CONVERSION SWITCH. 


BDC/348 
BDC/349 


00262 


00005 77736 


FLTW 


PZE CHAR-4*0»5 




CONSTANT USED BY CCEOUT. 


BDC/350 








************ 


* 


***************** 


•BDC/351 
BDC/352 








RESCAN/ CALLS=FILLW. USES 


=LINE(SCAN). 


BDC/353 








RESCAN * ENTRY POINT USED 


BY PRINT. 


BDC/354 


00263 


-0 63400 4 O0135 


RESCAN 


SXD AX4»4 




FOR RETURN FROM FORMAT SCAN. 


BDC/357 


00264 


-0 63400 1 00133 




SXD AX1»1 




SAVE THE ORIGINAL CIXRU* 


BDC/358 


00265 


-0 63400 2 00134 




SXD AX2*2 




SAVE THE ORIGINAL C(XR2)* AND 


BDC/359 


00266 


07400 4 00515 




TSX FILLW*4 


* 


GO OUTPUT RECORD. 


BDC/360 


00267 


-0 53400 4 00274 




LXD GROUPX *4 




THEN PICKUP ORIGINAL GROUP COUNT TOBDC/361 








GROUP ■ ENTRY POINT USED 


3Y CCRPAR. 


BDC/362 


00270 


-0 63400 4 00141 


GROUP 


SXD BX4*4 




UPDATE GROUP CONTROL. 


BDC/363 


00271 


-0 53400 1 00137 




LXD BX1»1 




RESET CHARACTER COUNT* 


BDC/364 


00272 


-0 53400 2 00140 




LXD 8X2*2 




RESET SCAN POSITION* AND 


BDC/365 


00273 


56000 77752 




LDQ MOR 




PICKUP 1ST FORMAT WORD OF GROUP. 


BDC/366 


00274 


1 00000 00077 


GROUPX 


TXI SCAN»0*** 

END OF PROGRAM RESCAN* 


* 


GO RESCAN THIS GROUP. 


BDC/367 
BDC/368 








************ 


at 


***************** 


*BDC/369 
BDC/370 








F1ELD.4/ USES PRINT. CALLERS*LINE (SCAN) * CCCMMA»CCSLSH»CCRPAR 


♦BDC/371 








FIELD CONTROLS THE REPEATED OUTPUT OF THE CURRENT FIELD. 


BDC/372 


00275 


-0 63400 4 00145 


FIELD 


SXD CX4»4 




SAVE THE CCXR4) FOR RETURN. 


BDC/373 


00276 


-0 63400 1 00143 




SXD CX1»1 




SAVE THE CHARACTER COUNT* 


BDC/374 


00277 


-0 63400 2 00144 




SXD CX2»2 




THE SCAN POSITION* AND 


BDC/375 


00300 


-0 60000 77751 




STQ MO 




THE CURRENT FORMAT WORD. 


BDC/376 


00301 


-0 53400 1 00133 




LXD AXltl 




RESTORE THE ORIGINAL C(XR1) . 


BDC/377 


00302 


-0 53400 2 00134 




LXD AX2*2 




RESTORE THE ORIGINAL CCXR2J* AND 


BDC/378 


00303 


53400 4 77745 




LXA INT*4 




EXAMINE INT* AND 


BDC/379 


00304 


-3 00000 4 00307 




TXL DONE»4»0 




IF NOT ZERO* THEN 


BDC/380 


00305 • 


-0 63400 4 00467 




SXD CLR2.4 




SET COLUMN WIDTH OF EACH FIELD. 


BDC/381 


0O306 


1 00000 00513 




TXI LIST.O 


* 


AND GO PROCESS FIELD. 


BDC/382 








DONE * ENTRY POINT USED 


BY PRINT* 


BDC/383 


00307 « 


-0 53400 4 00145 


DONE 


LXD CX4»4 




WHEN DONE* RESTORE THE C(XR4)» AND 


BDC/384 


00310 


02000 4 00001 




TRA 1*4 

END OF PROGRAM FIELD. 


• 


RETURN TO CALLER. 


BDC/385 
BDC/386 



fy>. 



u 



u 



************ 



*********** 



******** 



PRINT*4/ USES=FIELD 
PRINT DOES INTEGER. 













XPRINT ■ EXIT FROM 


00311 


-0 63400 


4 


00317 


XPRINT 


SXD CNVSW » 4 


00312 


07400 


4 


00263 




TSX RE5CAN»4 


00313 


-0 53400 


4 


00317 




LXD CNVSW»4 


00314 


50000 





77747 




CLA DATUM 

PRINT « ENTRY POINT 


00315 


-0 63400 


4 


O0135 


PRINT 


SXD AX4*4 


00316 


60100 





77747 




STO DATUM 


00317 


1 00000 





00000 


CNVSW 


TXI **»0#** 

FLT a ENTRY POIWT F 


00320 


10000 





00433 


FLT 


TZE CNVN 


00321 


76500 





00033 




LRS 27 


00322 


76000 





00003 




SSP 


00323 


40200 





00575 




SUB BASE 


00324 


76500 





00043 




LRS 35 


00325 


20000 





00576 




MPY L0G2 


00326 


60100 





77742 




STO EXP 


00327 


12000 





00340 




TPL FLT1 


00330 


40200 





77750 




SUB PEX 


00331 


73400 


4 


00370 


FAD 


PAX FXD»4 


00332 


56000 





77747 




LDQ DATUM 


00333 


26000 


4 


00671 




FMP 7AB-1»4 


00334 


76000 





00003 




SSP 


00335 


53400 


4 


77750 




LXA PEX*4 


©0336 


40200 


4 


00672 




SUB TAB»4 


00337 


1 00000 





00344 




TXI FLT4*0 


00340 


73400 


4 


00320 


FLU 


PAX FLT»4 


00341 


50000 


4 


00672 




CLA- TAB*4 


00342 


-0 40000 





77747 




SBM DATUM 


00343 


40000 





O0574 




ADD BIAS 


00344 


12000 





00350 


FLT4 


TPL FLT2 


00345 


-0 50000 





77742 




CAL EXP 


00346 


40000 





00577 




ADD ONE 


00347 


60200 





77742 




SLW EXP 


00350 


-0 50000 





00566 


FLT2 


CAL E 


00351 


60200 





77736 




SLW CHAR-4 


00352 


50000 





77742 




CLA EXP 


00353 


40200 





77750 




SUB PEX 


00354 


60100 





77742 




STO EXP 


00355 


-0 50000 





00570 




CAL BLANK 


©0356 


56000 





77742 




LDQ EXP 


00357 


16200 





00361 




TOP FLT3 


00360 


-0 50000 





00560 




CAL MINUS 


00361 


60200 





77737 


FLT3 


SLW CHAR-3 


00362 


-0 75400 





00445 


IAD 


PXD INTG»0 


00363 


22100 





00571 




DVP TEN 


00364 


-0 60000 





77740 




STQ CHAR-2 


00365 


60200 





77741 




SLW CHAR-1 


00366 


50000 





77747 




CLA DATUM 


00367 


1 00000 





00371 




TXI CNV*0 



♦LINE. CALLERS* tBDC)* LINE (RESCAN). 

FIXED* AND FLOATING POINT CONVERSION. 
PRINT WHEN FORMAT IS EXHAUSTED. 
SAVE THE CCXR4)* AND 

* GO RESCAN FORMAT. THEN RETURN* 
AFTER GETTING FORMAT. 
THEN PROCEED TO CONVERSION. 

USED BY CBDCU 

SAVE THE CCXR4) FOR RETURN TO LIST. 
STORE CURRENT FIELD FOR CONVERSION. 

* SWITCH TO FLT* FXD* INTG*OR RESCAN* 
OR FLOATING POINT CONVERSION. 

IF "NON-ZERO • BEGIN E* F CONVERSION. 
PLACE CHARACTERISTIC IN THE AC* 
FRACTION IN THE MQ. 

OBTAIN REQUIRED BASE IN THE MQ. 



TEST PROBABLE 
EXPONENT. 



ADJUST EXPONENT. 



OBTAIN E FOR 
EXPONENT. 



OBTAIN SIGN. 



OBTAIN DIGITS 
OF EXPONENT. 



8DC/387 

BDC/388 

BDC/389 

BDC/390 

BDC/391 

BDC/392 

BDC/3921 

3DC/3922 

BDC/393 

3DC/394 

3DC/395 

3DC/396 

BDC/397 

BDC/398 

3DC/399 

8DC/400 

8DC/401 

BDC/402 

BDC/403 

BDC/404 

BDC/405 

BOC/406 

BDC/407 

BOC/408 

BOC/409 

BDC/410 

BOC/411 

BOC/412 

BDC/413 

BDC/414 

BOC/415 

BDC/416 

BDC/417 

BDC/418 

BOC/419 

BDC/420 

BOC/421 

BDC/422 

BDC/423 

BDC/424 

BDC/425 

BDC/426 

BDC/427 

BDC/428 

BDC/429 

BDC/430 

BDC/431 

BDC/432 

BDC/433 

BOC/434 

BOC/435 

BDC/436 

BDC/437 

BDC/438 



/ , 















FXD « ENTRY POINT 


FOR F 


00370 





10000 


00433 


FXD 


T2E 


CNVN 




00371 





53400 


4 77742 


CNV 


LXA 


EXP*4 




00372 


-3 


00000 


4 00400 




TXL 


CNV1»4»0 




00373 





56000 


77742 




LDO 


EXP 




00374 





16200 


00402 




TOP 


CNV2 




00375 





56000 


77747 




LDQ 


DATUM 




00376 





26000 


4 00672 




FMP 


TAB#4 




00377 





36100 


00574 




ACL 


BIAS 




00400 


-0 


30000 


00572 


CNV1 


UFA 


FIXN 




00401 


1 


00000 


00406 




TXI 


CNVN 1*0 




00402 





24100 


4 00672 


CNV2 


FDP 


TAB»4 




00403 


-0 


60000 


77744 




STQ 


FD 




00404 





50000 


77744 




CLA 


FD 




00405 


-0 


30000 


00573 




UFA 


FIXQ 




00406 





76300 


00010 


CNVN1 


LLS 


8 




00407 





76700 


00002 




ALS 


2 




004 10 





77100 


00012 




ARS 


10 




00411 





60100 


77743 




STO 


ND 




00412 


-0 


60000 


77744 




STQ 


FD 




00413 





53400 


4 77746 




LXA 


DIG»4 




00414 





50000 


77744 




CLA 


FD 




00415 





36100 


4 00613 




ACL 


RND»4 




00416 





76500 


00043 




LRS 


35 




00417 





40000 


77743 




ADD 


ND 




00420 





60100 


77743 




STO 


ND 




00421 


-3 


00000 


4 00440 




TXL 


CNV3 *4 »0 




00422 


-0 


60000 


77744 


CNV4 


STQ 


FQ 




00423 





76700 


00004 




ALS 


4 




00424 





76300 


00041 




LLS 


33 




00425 





40000 


77744 




ADO 


FD 




00426 





76500 


00040 




LRS 


32 




00427 





60200 


4 00000 


CNV 5 


SLW 


*##4 




00430 


2 


00001 


4 00422 




TIX 


CNV4*4*1 




00431 





50000 


77743 




CLA 


ND 




00432 


1 


00000 


00440 




TXI 


CNV3*0 




00433 





53400 


4 77746 


CNVN 


LXA 


DIG»4 




00434 





56000 


00570 




LDQ 


BLANK 




00435 


1 


00000 


4 00436 


CLR 


TXI 


CLR1*4**» 




00436 


-0 


60000 


4 77742 


CLR1 


STQ 


CHAR »4 




00437 


2 


00001 


4 00436 




TIX 


CLR1»4»1 




00440 





53400 


4 77746 


CNV3 


LXA 


DIG*4 




00441 


1 


00000 


4 00442 


CNV6 


TXI 


CNV7»4t** 




00442 





56000 


00562 


CNV7 


LDQ 


POINT 




00443 


-0 


60000 


4 77742 




STQ 


CHAR #4 




00444 


1 


00000 


00447 




TXI 


CNVlltO 

INTG « ENTRY POINT 


FOR 


00445 


-0 


53400 


4 00577 


INTO 


LXD 


ONE* 4 




00446 





77100 


00022 




ARS 


18 




00447 





76500 


00043 


CNV11 


LRS 


35 




00450 





22100 


00571 


CNV9 


DVP 


TEN 




00451 





60200 


4 77741 




SLW 


CHAR-1*4 




00452 


-0 


60000 


77743 




STQ 


ND 




00453 





50000 


77743 




CLA 


ND 





IXED POINT CONVERSION. 

TEST OUTPUT NUMBER FOR ZERO. 
TEST FOR SCALING. 



FIX INTERNAL FLOATING BINARY NO. 



STORE INTEGRAL PART. 
STORE FRACTIONAL PART* 

SKIP FRACTIONAL. 

ROUND NUMBER* 

TEST FOR FRACTION WANTED. 
CONVERT FRACTIONAL PART* 

CFXD»CHAR» FLTsCHAR-4) 
OBTAIN INTEGRAL PART* 

CFXD*1* FLT«5J 



tFXD*l» FLT*5) 
ESTABLISH POINT* 



INTEGER CONVERSION. 



CONVERT INTEGRAL PART* 



BDC/439 
BDC/440 
BDC/441 
BDC/442 
BDC/443 
BDC/444 
BDC/445 
BDC/446 
BDC/447 
BDC/448 
BDC/449 
BDC/450 
BDC/451 
BDC/452 
BDC/453 
BOC/454 
BDC/455 
BDC/456 
BDC/457 
BDC/458 
BDC/459 
BDC/460 
BDC/461 
BDC/462 
BDC/463 
BDC/464 
BDC/465 
BDC/466 
BDC/467 
BOC/468 
BDC/469 
BDC/470 
BDC/471 
BDC/472 
BDC/473 
BDC/474 
BDC/475 
BDC/476 
BDC/477 
BDC/478 
BOC/479 
BOC/480 
BOC/481 
BOC/402 
BDC/483 
BDC/484 
BOC/485 
BDC/486 
BDC/487 
BOC/488 
BDC/489 
BDC/490 
BDC/491 
BDC/492 



u 



(J 



00454 





10000 





00457 




TZE 


CNV8 


00455 





76000 





00000 




CLM 




00456 


1 


00001 


4 


00450 




TXI 


CNV9t4tl 


00457 


-0 


50000 





00570 


CNV8 


CAL 


BLANK 


00460 





16200 





00462 




TQP 


CNV12 


00461 


-0 


50000 





00560 




CAL 


MINUS 


00462 





60200 


4 


77740 


CNV12 


SLW 


CHAR-2#4 


00463 


-0 


50000 





00570 




CAL 


BLANK 


00464 


1 


00003 


4 


00467 




TXI 


CLR2»4*3 


00465 





60200 


4 


77742 


CLR3 


SLW 


CHARt4 


00466 


1 


00001 


4 


00467 




TXI 


CLR2»4»1 


00467 


-3 


00000 


4 


00465 


CLR2 


TXL 


CLR3»4»** 


00470 


-0 


53400 


4 


00467 




LXD 


CLR2*4 


©0471 


-0 


50000 





77777 




CAL 


WORD 


00472 





14000 





00473 




TOV 


PACK2 


00473 





76700 





00006 


PACK2 


ALS 


6 


00474 





40000 


4 


77742 




ADO 


CHAR»4 


00475 


-0 


14000 





00503 




TNO 


PACK3 


00476 





60200 





00000 


PACK 


SLW 


** 


00477 


-0 


50000 





00476 




CAL 


PACK 


00500 





40000 





00577 




ADD 


ONE 


00501 





62100 





00476 




STA 


PACK 


00502 


-0 


50000 





00577 




CAL 


ONE 


00503 


2 


00001 


4 


00473 


PACK3 


TIX 


PACK2»4*1 


00504 





60200 





77777 




SLW 


WORD 


00505 


-0 


53400 


4 


00511 




LXD 


C0UNT*4 


00506 


2 


00001 


4 


00512 




TIX 


M0RE»4»1 


00507 


-0 


63400 


1 


00133 




SXD 


AX1»1 


00510 


-0 


63400 


2 


00134 




SXD 


AX2»2 


00511 


1 


00000 





00307 


COUNT 


TXI 


DONE»Q»** 


00512 


-0 


63400 


4 


00511 


MORE 


SXD 


COUNT* 4 

LIST « ENTRY POI 


00513 


-0 


53400 


4 


00135 


LIST 


LXD 


AX4*4 


00514 





02000 


4 


00001 




TRA 


1»4 

END OF PROGRAM 
******** 

FILLW(RESET)»4/ 
FILLW FILLS OUT 


00515 


-0 


63400 


4 


00054 


FILLW 


SXD 


FILLX»4 


00516 





53400 


4 


00476 




LXA 


PACK»4 


00517 


-0 


50000 





77777 




CAL 


WORD 


00520 





40200 





00577 




SUB 


ONE 


00521 





10000 





00533 




TZE 


FILL1 


00522 


-0 


50000 





00476 




CAL 


PACK 


00523 





62100 





00531 




STA 


FILL3 


00524 


-0 


50000 





77777 




CAL 


WORD 


00525 





14000 





00526 




TOV 


FILL4 


00526 





76700 





00006 


FILL4 


ALS 


6 


00527 





40000 





00570 




ADD 


BLANK 


00530 


-0 


14000 





00526 




TNO 


FILL4 


00531 





60200 





00000 


FILL3 


SLW 


#* 


00532 


1 


00001 


4 


00533 




TXI 


FILL1*4»1 


00533 


2 


77753 


4 


00535 


FILL1 


TIX 


FILL2»4»REC 



PUT SIGN IN SPREAD BCD. 



(COLUMN WIDTH OF THIS FIELDJ 

PACK RECORD INTO 
FULL WORDS. 



(CURRENT ADDRESS IN REC BUFFER) 



WHEN THIS FIELD HAS BEEN PROCESSED 

SAVE ANY REMAINDER* AND 

COUNT NUMBER OF 

WORDS CONVERTED.. 

IF FIELD COUNT HAS BEEN EXHAUSTED* 

RESTORE THE C (XR1 ) *C (XR2 > » AND 

* (FIELD REPEAT COUNT) EXIT TO FIELD 
OTHERWISE* GO GET MORE LIST. 

NT USED BY LINE (SCAN ) fFIELD. 

RESTORE THE C(XR4)» AND 

* GO GET NEXT OUTPUT NUMBER. 
PRINT. 
********************** 

CALLERS* CFIL)*LINE*CCSLSH»RESCAN. 
LAST- WORD , CONTROLS OUTPUT* AND RESETS. 

SAVE THE CCXR4) FOR RETURN. 

SET XR4 * REC + NO. WORDS ENTERED. 

EXAMINE 

WORD INDICATOR* AND 

IF NOT ZERO* THEN 

SET ADDRESS 

FOR LAST WORD. 

PICKUP WORD* 

AND 

FILL OUT 

WITH BLANKS. 

WHEN DONE* 

STORE LAST WORD. 

UPDATE* AND SET 

XR4 AND THE DECREMENT OF FILL 



BDC/493 
BDC/494 
BDC/495 
BDC/496 
BDC/497 
BDC/498 
BDC/499 
BDC/500 
BDC/501 
BDC/502 
BDC/503 
BDC/504 
BDC/505 
BDC/506 
BDC/507 
BDC/508 
BDC/509 
BDC/510 
BDC/511 
BDC/512 
BDC/513 
BDC/514 
BDC/515 

*BDC/516 
BDC/517 
BDC/518 
BDC/519 
BDC/520 
BDC/521 

♦BDC/522 
BDC/523 
BDC/524 
BDC/525 
BDC/526 
BDC/527 

♦BDC/528 
BDC/529 
BDC/530 
BDC/531 
BDC/532 
BDC/533 
BDC/534 
BDC/535 
BDC/536 
BDC/537 
BDC/538 
BDC/539 
BDC/540 
BDC/541 
BDC/542 
BDC/543 
BDC/544 
BDC/545 
BDC/546 



/. 1 



00534 
00535 
00536 
00537 
00540 
00541 
00542 
00543 

00544 
00545 
00546 
00547 
00550 
00551 
00552 



53400 
63400 
53400 
77776 
76600 
07400 
00000 



-0 53400 



50000 

60200 
50000 
62100 
50000 
60200 



00577 

00542 FILL2 
00105 
00541 
00177 

00000 TYPE 
77753 FILL 
C$054 

00567 RESET 

77753 FILT 

00542 

00476 

00577 

77777 



02000 4 00001 



00553 +000000000077 ENDMK 

00554 000000000074 < 

00555 000000000073 COMMA 

00556 000000000061 SLASH 

00557 000000000047 P 

00560 000000000040 MINUS 

00561 000000000034 ) 

00562 000000000033 POINT 

00563 000000000031 I 

00564 000000000030 H 

00565 000000000026 F 

00566 000000000025 E 

00567 CCTEST 

00567 606060606060 BLANKS 

00570 000000000060 BLANK 

00571 +000000000012 TEN 

00572 +233000000000 FIXN 

00573 +266000000000 FIXQ 

00574 +033000000000 BIAS 

00575 +000000000200 BASE 

00576 +115040462343 L0G2 

00577 +000000000001 ONE 

00600 00000 00002 TWO 

00601 00000 00011 L(9) 

00602 +000000000021 

00603 +000000000253 

00604 +000000003265 

00605 +000000041433 

00606 +000000517426 

00607 +000006433342 

00610 +000101422335 

00611 +001217270243 

00612 +014631463146 

00613 +200000000000 RND 



LXA 
SXD 

LXD 
TXH 
WRS 
TSX 
PZE 
LXD 

CAL 
SLW 
CAL 
STA 
CAL 
SLW 
TRA 



OCT 
BCD 
BCD 
BCD 
BCD 
BCD 
BCD 
BCD 
BCD 
BCD 
BCD 
BCD 
BSS 
BCD 
BCD 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
PZE 
PZE 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 



0N£»4 TO THE NUMBER OF WORDS ENTERED 

FILL»4 IN REC BUFFER. THEN 

UNITf4 SELECT CURRENT OUTPUT UNIT. 

TYPE,4»-2 PUNCH OR PRINT OUTPUT. 

127,4 BCD TAPE OUTPUT. 

** #4 * GO TO INDICATED OUTPUT ROUTINE. 

REC,,** (DECREMENT a NO. WORDS ENTERED) 

FILLX.4 f REENTRY FROM OUTPUT ROUTINE. 

RESET * ENTRY POINT USED BY LINE. 

BLANKS RESET REC 

REC TO BLANKS* 

FILL PACK ADDRESS 

PACK TO REC, AND 

ONE PICKUP 1 TO 

WORD SET WORD INDICATOR. 

1,4 * EXIT TO CALLER. 

END OF PROGRAM FILLWl RESET ) • 
****************************** 



CONSTANTS AND 

77 

100000( 

100000, 

100000/ 

100000P 

100000- 

100000) 

100000. 

100000 I 

100000H 

100000F 

1 00000 E 



1 

100000 

10 

155B8 

182B8 

27B8 

128 

.301029957B 

1 

2 

9 

.5BE-9 

.5BE-8 

•5BE-7 

•5BE-6 

.5BE-5 

•5BE-4 

.5BE-3 

♦5BE-2 

•5BE-1 

• 5B 



WORKING STORAGE USED BY FIL/ 
CCTE5T-12. 
CCTEST-11. 
CCTEST-10. 
CCTEST-9 
CCTEST-8 
CCTEST-7 
CCTEST-6 
CCTEST-5 
CCTEST-4 
CCTEST-3 
CCTEST-2 
CCTE5T-1 
INDEXING ADDRESS 
CONSTANT USED BY 
CONSTANT USED BY 
CONSTANT USED BY 
CONSTANT USED BY 
CONSTANT USED BY 
CONSTANT USED BY 
CONSTANT USED BY 
CONSTANT USED BY 
CONSTANT USED BY 
CONSTANT USED BY 
CONSTANT USED BY 
09-TABLE USED BY 
©8-TABLE USED BY 
07-TABLE USED BY 
06-TABLE USED BY 
05-TABLE USED BY 
04-TABLE USED BY 
03-TABLE USED BY 
02-TABLE USED BY 
01-TABLE USED BY 
OO-TABLE USED BY 



BDC< 



FOR ABOVE LIST. 

FIL/BDC. 

FIL/BDC. 

FIL/BDC. 

FIL/BDC. 

FIL/BDC. 

FIL/BDC. 

FIL/BDC. 

FIL/BDC. 

FIL/BDC. 

FIL/BDC. 

FIL/BDC. 

FIL/BDC. 

FIL/BDC. 

FIL/BDC. 

FIL/BDC. 

FIL/BDC. 

FIL/BDC. 

FIL/BDC. 

FIL/BDC. 

FIL/BDC. 

FIL/BDC. 



BDC/547 
BDC/548 
BDC/549 
BDC/550 
BDC/551 
BDC/552 
BDC/553 
BDC/554 
BDC/555 
BDC/556 
BDC/5 57 
BDC/5 58 
BDC/559 
BDC/560 
BDC/561 
BDC/562 
BDC/563 
*BDC/564 
BDC/565 
BDC/566 
BDC/5665 
BDC/567 
BDC/568 
BDC/569 
BDC/570 
BDC/571 
BDC/572 
BDC/573 
BDC/574 
BDC/575 
BDC/576 
BDC/577 
BDC/578 
BDC/579 
BDC/580 
BDC/581 
BDC/582 
BDC/583 
BDC/584 
BDC/585 
BDC/586 
BDC/587 
BDC/5875 
BDC/5876 
BDC/588 
BDC/589 
BDC/590 
BDC/591 
BDC/592 
BDC/593 
BDC/594 
BDC/595 
BDC/596 
BDC/597 



u 



u 



00614 +376700324573 

00615 +373546566774 

00616 +370436770626 

00617 +364713132675 

00620 +361557257061 

00621 +356445677215 

00622 +352726145174 

00623 +347570120775 

00624 +344454732312 

00625 +340741367020 

00626 +335601137163 

00627 +332464114134 

00630 +326755023372 

00631 +323612334310 

00632 +320473426555 

00633 +314770675742 

00634 +311623713116 

00635 +306503074076 

00636 +303402374713 

00637 +277635456171 

00640 +274512676456 

00641 +271410545213 

00642 +265647410337 

00643 +262522640262 
©0644 +257417031702 

00645 +253661534466 

00646 +250532743536 

00647 +245425434430 

00650 +241674055530 

00651 +236543212741 

00652 +233434157116 

00653 +227706576512 

00654 +224553630410 

00655 +221443023471 

00656 +215721522451 

00657 +212564416672 

00660 +207452013710 

00661 +203734654500 

00662 +200575360400 

00663 +175461132000 

00664 +171750220000 

00665 +166606500000 

00666 +163470400000 

00667 +157764000000 

00670 +154620000000 

00671 +151500000000 

00672 +146400000000 

77552 
77742 
77742 
77743 
77744 
77745 
77746 



OCT 


376700324573 


OCT 


373546566774 


OCT 


370436770626 


OCT 


364713132675 


OCT 


361557257061 


OCT 


356445677215 


OCT 


352726145174 


OCT 


347570120775 


OCT 


344454732312 


OCT 


340741367020 


OCT 


335601137163 


OCT 


332464114134 


OCT 


326755023372 


OCT 


323612334310 


OCT 


320473426555 


OCT 


314770675742 


OCT 


311623713116 


OCT 


306503074076 


OCT 


303402374713 


OCT 


277635456171 


OCT 


274512676456 


OCT 


271410545213 


OCT 


265647410337 


OCT 


262522640262 


OCT 


257417031702 


OCT 


253661534466 


OCT 


250532743536 


OCT 


245425434430 


OCT 


241674055530 


OCT 


236543212741 


r\t-T 


233434157116 


OCT 


227706576512 


OCT 


224553630410 


OCT 


221443023471 


OCT 


215721522451 


OCT 


212564416672 


OCT 


207452013710 


OCT 


203734654500 


OCT 


200575360400 


OCT 


175461132000 


OCT 


171750220000 


OCT 


166606500000 


OCT 


163470400000 


OCT 


157764000000 


OCT 


154620000000 


OCT 


151500000000 


TAB OCT 


146400000000 


COMMON ORG 


-150 


CHAR BES 


120 


EXP BSS 


1 


ND BSS 


1 


FD BSS 


1 


INT BSS 


1 


DIG BSS 


1 



46-TABLE USED BY F1L/BDC 
45-TABLE USED BY FIL/8DC 
44-TABLE USED BY FIL/BDC 
43-TABLE USED BY FIL/BDC 
42-TABLE USED BY FIL/BDC 
41-TABLE USED BY FIL/BDC 
40-TABLE USED BY FIL/BDC 
39-TABLE USED BY FIL/BDC 
38-TABLE USED BY FIL/BDC 
37-TABLE USED BY FIL/BDC 
36-TABLE USED BY FIL/BDC 
35-TABLE USED BY FIL/BDC 
34-TABLE USED BY FIL/BDC 
33-TABLE USED BY FIL/BDC 
32-TABLE USED BY FIL/BDC 
31-TABLE USED BY FIL/BDC 
30-TABLE USED BY FIL/BDC 
29-TABLE USED BY FIL/BDC 
28-TA6LE USED BY FIL/BDC 
27-TABLE USED BY FIL/BDC 
26-TABLE USED BY FIL/BDC 
25-TABLE USED BY FIL/BDC 
24-TABLE USED BY FIL/BDC 
23-TABLE USED BY FIL/BDC 
22-TABLE USED BY FIL/BDC 
21-TABLE USED BY FIL/BDC 
20-TABLE USED BY FIL/BDC 
19-TABLE USED BY FIL/BDC 
18-TABLE USED BY FIL/BDC 
17-TABLE USED BY FIL/BDC 
16-TABLE USED BY FIL/BDC 
15-TABLE USED BY FIL/8DC 
14-TABLE USED BY FIL/BDC 
13-TABLE USED BY FIL/BDC 
12-TABLE USED BY FIL/BDC 
11-TABLE USED BY FIL/BDC 
10-TABLE USED BY FIL/BDC 
09-TABLE USED BY FIL/BDC 
08-TABLE USED BY FIL/BDC 
07-TABLE USED BY FIL/BDC 
06-TABLE USED BY FIL/BDC 
05-TABLE USED BY FIL/BDC 
04-TABLE USED BY FIL/BDC 
03-TABLE USED BY FIL/BDC 
02-TABLE USED BY FIL/BDC 
01-TABLE USED BY FIL/BDC 
00-TABLE USED BY FIL/BDC 
COMMON WORKING STORAGE* 
VARIABLE USED BY FIL/BDC 
VARIABLE USED BY FIL/BDC 
VARIABLE USED BY FIL/BDC 
VARIABLE USED BY FIL/BDC 
VARIABLE USED BY FIL/BDC 
VARIABLE USED BY FIL/BDC 



BDC/598 
BDC/599 
BDC/600 
BDC/601 
BDC/602 
BDC/603 
BDC/604 
BDC/605 
BDC/606 
BDC/607 
BDC/608 
BDC/609 
BDC/610 
BDC/611 
BDC/612 
BDC/613 
BDC/614 
BDC/615 
BDC/616 
BDC/617 
BDC/618 
BDC/619 
BDC/620 
BDC/621 
BDC/622 
BDC/623 
BDC/624 
BDC/625 
BDC/626 
BDC/627 
BDC/628 
BDC/629 
BDC/630 
BDC/631 
BDC/632 
BDC/633 
BDC/634 
BDC/635 
BDC/636 
BDC/637 
BDC/638 
BDC/639 
BDC/640 
BDC/641 
BDC/642 
BDC/643 
BDC/644 
BDC/645 
BDC/646 
BDC/647 
BDC/648 
BDC/649 
BDC/650 
BDC/651 



77747 


DATUM 


8SS 


1 


77750 


PEX 


BSS 


1 


77751 


MQ 


BSS 


1 


77752 


MOR 


BSS 


1 


77753 


REC 


BSS 


20 


77777 


WORD 


BSS 


1 



00000 



END 



VARIABLE USED BY FIL/BDC. BDC/652 

VARIABLE USED BY FIL/BDC. BDC/653 

VARIABLE USED BY FIL/BDC. BDC/654 

VARIABLE USED BY FIL/BDC* BDC/655 

VARIABLE USED BY FIL/BDC. BDC/656 

VARIABLE USED BY FIL/BDC. BDC/657 

END OF CONSTANTS AND WORKING STORAGE USED BY FIL/BDC. BDC/658 
****************************** *BDC/659 

BDC/660 



CuV 



(J 



u 



TD 



00000 
00001 
00002 
00003 



00000 
00001 
00002 
00003 
00004 
00005 
00006 
00007 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
©0017 
©0020 
00021 
00022 
00023 
00024 
00025 
#0026 
00027 
00030 
00031 
00032 
00033 
OO034 
00035 
00036 
00037 
00040 
00041 
00042 
00043 
00044 
00045 
00046 
00047 
00050 
O0051 
00052 
00053 



ABS 

00000 
00000 00132 
00000 77701 
746223303460 
00000 00000 



1 

1 
1 



-0 63400 

-0 63400 

-0 63400 

-0 50000 

60200 

-3 00000 

-0 53400 

50000 

O 77100 

40000 

-0 73400 

-0 63400 

62100 

62100 

76600 

50000 

-O 53400 

34000 

77777 

00001 

77777 

63400 

-0 63400 

•0 63*00 

-0 53400 

-2 00000 

-0 53400 

53400 

-0 53400 

-0 75400 

60200 

60200 

2 00001 

-0 50000 

60200 

56000 

-0 63400 

53400 

-0 75400 

-0 76300 

73400 

-0 50000 

77100 

2 00020 



00000 
77701 

1 00104 

2 00112 
4 00130 
00005 
00000 
00006 
4 00130 
4 00001 
00022 
4 00001 
4 00000 
4 00005 
00021 
00043 
00341 

00127 
4 00056 
4 00000 
4 00025 
4 00021 
4 00025 
4 00062 
4 00074 
4 00031 
4 00005 
4 00033 
4 00005 
2 00035 

1 00077 

OOOOO 

1 77742 
1 77722 
1 00036 
00131 
77701 
4 00000 
4 00116 
4 00047 
O 00014 

#0006 

1 00000 

77701 
4 00006 

1 00077 



CONTROL CARD FOR SCH* 

ORG 

PZE C0L1+1 

PZE COMMON 

SCO It SCH) 

PZE 

END OF SCH CONTROL CARD* 

ORG 
COMMON SYN -63 
FIRST SXD Xl»l 

SXD X2»2 

SXD X4*4 

CAL PR6 

SLW 
PR6 TXL START 
START LXD X4*4 

CLA 1*4 

ARS 18 

ADD 1*4 
(SCH) PDX FIRST»4 

SXD PR 6* 4 

STA PR2 

STA CI 9 

WRU 

CLA BLNKS 

LXD CI 4*4 
PR 2 CAS 0#4 

TXI PR1»4»-1 

TXI PR2*4»1 

TXI RR1*4»-1 
PR1 SXD CI6#4 

SXD CI 8*4 

SXD PR8*4 

LXD *>R6»4 
PR 8 TNX PR5»4 
PR 3 LXD PR6»4 
PR 5 LXA PR7»2 

LXD YZ1»1 
PR 7 J'XD 
PR4 SLW LT#1 

SLW RT*1 

TIX J>R4»1»1 
CIR CAL C0L1 
CI 2 SLW COL 
CI 9 LDQ 0*4 

SXD OZ2»4 

LXA 06*4 
CI1 P^D 12 
Q6 LGL 6 

PAX 0*1 

CAL COL 

ARS 6*4 

TIX YZ1»1»16 



OBTAIN STARTING LOCATION OF 

BUFFER AREA FOR LINE IMAGE 

IN BCD 

SAVE LOCATION 

X 

SUPPLY ADDRESS 

X 

FIND LAST NON-BLANK 

GROUP 

X 



STORE END TEST 
X 



INITIALIZE GROUP COUNT 
INITIALIZE LEFT SETUP 
CLEAR CARD IMAGE 



INITIALIZE COLUMN INDICATOR 

X 

OBTAIN GROUP 

STORE GROUP COUNT 

SET CHARACTER COUNT 



POSITION COLUMN INDICATOR 

X 

TEST FOR DIGIT 



SCH/C01 
SCH/C02 
SCH/C03 
SCM/X04 
SCH/C05 
SCH/ C 06 
SCH/C07 
SCH 0001 
SCH2P11 
SCH 0002 
SCH 0003 
SCH 0004 
SCH 0005 
SCH 0006 
SCH 0007 
SCH 0008 
SCH 0009 
SCH 0010 
SCH 0011 
SCH 0012 
SCH 0013 
SCH 0014 
SCH 0015 
SCH 0016 
SCH 0017 
SCH 0016 
SCH 0019 
SCH 0020 
SCH 0021 
SCH 0022 
SCH 0023 
SCW 0024 
SCH 0023 
fiGK O026 
SCH 0027 
SCH 0028 
SCH 0029 
SCH 0030 
SCH 0031 
SCH 0032 
SCH 0033 
SCH 0034 
SCH 0035 
SCH 0036 
SCH 0037 
SCH 0038 
SCH 0039 
SCH 0040 
SCH 0041 
SCH 0042 
SCH 0043 
SCH O044 
SCH 0045 



W 



^D L 



TD 



TO 



TD 



00054 


3 


00017 


1 


00102 




TXH 


YZ2»1» 


15 


00055 


-0 


60200 


3 


77737 


C15 


ORS 


D»3 




00056 


2. 


60001 


4 


00046 


CI4 


TIX 


CI1#4» 


1 


00057 





77100 





OOOOl 


CI3 


ARS 


1 




0O060 


-0 


$3400 


4 


00116 




LXD 


0Z2*4 




00061 


1 


77777 


4 


00062 




TXI 


CI6»4» 


-1 


00062 


-3 


00000 


4 


00064 


CI6 


TXL 


CI7t4 




00063 


-0 


10000 





00042 




TNZ 


CI 2 




00064 


-0 


50000 


2 


77724 


CI7 


CAL 


8*3*2 




00065 


-0 


60200 


2 


77727 




ORS 


D-8»2 




00066 


-0 


60200 


2 


77734 




ORS 


D-3*2 




0OO67 





60200 


2 


77725 




SLW 


8*2*2 




OO070 


-0 


50000 


2 


77723 




CAL 


8*4*2 




00071 


-0 


60200 


2 


77727 




ORS 


D-8»2 




00072 


-0 


60200 


2 


77733 




ORS 


D-4»2 




00073 





60200 


2 


77724 




SLW 


8*3*2 




00074 


-3 


00000 


4 


00117 


CI8 


TXL 


WP»4 




00075 


3 


00017 


2 


00117 




TXH 


WP»2*15 


00076 


1 


00020 


2 


00041 




TXI 


CIR*2* 


16 


00077 


2 


00020 


1 


00105 


YZ1 


TIX 


XZl*l. 


16 


00100 


3 


00017 


1 


00110 




TXH 


XZ2»1* 


15 


00101 


-0 


60200 


3 


77737 




ORS 


D*3 




00102 


-0 


60200 


2 


77741 


YZ2 


ORS 


Y*2 




00103 


2 


0000 i 


4 


00046 




TIX 


CI 1*4* 


1 


00104 


-3 


00000 





00057 


XI 


TXL 


CI3 




00105 


2 


O0O20 


1 


00113 


XZ1 


TIX 


0Z1»1» 


16 


00106 


3 


00017 


1 


00056 




TXH 


CI4»1» 


15 


00107 


-0 


60200 


3 


77737 




ORS 


D»3 




00110 


-0 


60200 


2 


77740 


XZ2 


ORS 


X*2 




00111 


2 


00001 


4 


00046 




TIX 


CI1»4» 


1 


00112 


-3 


00000 





00057 


X2 


TXL 


CI3 




00113 


-0 


60200 


2 


77737 


0Z1 


ORS 


Z»2 




00114 


-0 


60200 


3 


77737 




ORS 


D»3 




00115 


2 


0000 1 


4 


00046 




TIX 


CI1»4« 


1 


00116 


-3 


00000 





00057 


0Z2 


TXL 


CI 3 




00117 





53400 


1 


00046 


WP 


LXA 


CI1»1 




00120 





70000 


1 


77742 


WP3 


CPY 


LT*1 




00121 





70000 


1 


77722 




CPY 


RTtl 




00122 


2 


0000 1 


1 


00120 




TIX 


WP3»1» 


1 


00123 


-0 


53400 


1 


00104 




LXD 


Xl»l 




00124 


-0 


53400 


2 


00112 




LXD 


X2*2 




00125 


-0 


53400 


4 


00130 


WT2 


LXD 


X4*-4 




00126 





02000 


4 


00002 




TRA 


2*4 




00127 


606060606060 


BLNKS 


BCD 


1 




00130 





00000 





00001 


X4 


HTR 


1 




00131 


-0 


00000 





00000 
77701 
77701 
77722 
77722 
77723 
77724 
77725 
77737 


COLl 

COL 

RT 

8.5 

8*4 
8*3 
8.2 



MZE 
ORG 
BSS 
BES 
BSS 
BSS 
BSS 
BSS 
BES 


-63 

1 

16 

1 

1 

1 

1 

9 





TEST FOR Y-ZONE 

STORE DIGIT 

COUNT CHARACTERS 

SHIFT AND TEST COLUMN 

RESTORE GROUP COUNT 

COUNT GROUPS 

TEST FOR LAST NON-BLANK GR* 

TEST FOR END OF ROW 

FORM TRUE 8*4 

AND 3 ROWS AND 

M0VE8*4 AND 8*3 

ROWS 

FORM TRUE8.4 



TEST FOR END 
TEST FOR RIGHT HALF 
INITIALIZE RIGHT HALF 
TEST FOR 16/CH/32 
TEST FOR X-ZONE 
STORE DIGIT 
STORE Y-ZONE 
COUNT CHARACTERS 
OBTAIN NEXT GROUP 
TEST FOR 32/CH/48 
TEST FOR BLANK 
STORE DIGIT 
STORE X-ZONE 
COUNT CHARACTERS 
OBTAIN NEXT GROUP 
STORE O-ZONE 



COUNT CHARACTERS 



COPY CARD IMAGE 



SCH 
SCH 
SCH 
SCH 
SCH 
SCH 
SCH 
SCH 
SCH 
SCH 
SCH 
SCH 
SCH 
SCH 
SCH 
SCH 
SCH 
SCH 
SCH 
SCH 
SCH 
SCH 
SCH 
SCH 
SCH 
SCH 
SCH 
SCH 
SCH 
SCH 
SCH 
SCH 
SCH 
SCH 
SCH 
SCH 
SCH 
SCH 
SCH 
SCH 
SCH 
SCH 
SCH 
SCH 
SCH 
SCH 
SCH 
SCH 
SCH 
SCH 
SCH 
SCH 
SCH 
SCH 



0046 
0047 
0048 
0049 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 
0058 
0059 
0060 
0061 
0062 
0063 
0064 
0065 
0066 
0067 
0068 
0069 
0070 
0071 
0072 
0073 
0074 
0075 
0076 
0077 
0078 
0079 
0080 
0081 
0082 
0083 
0084 
0085 
0086 
0087 
0088 
0089 
0090 
0091 
0092 
0093 
0094 
0095 
0096 
0097 
0098 
0099 



u 







77737 


z 


BSS 


1 


77740 


X 


BS5 


1 


77741 


Y 


BSS 


1 


77742 


LT 


SYN 


Y+l 


00000 




END 





SCH 0100 
SCH 0101 
SCH 0102 
SCH 0103 
SCH 0104 



US 



J L 



TD 
TD 

TO 
TD 



OOOOO 
00001 
00002 
00003 



OOOOO 
00001 
00002 
00003 
00004 
00005 
00006 
00007 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 
00020 
00021 
00022 
00023 
00024 
00025 
00026 
00027 
00030 
00031 
00032 
00033 
00034 
00035 
00036 
00037 
00040 
00041 
00042 
00043 
00044 
00045 
00046 
00047 
00050 
00051 
00052 



ABS 



OOOOO 
OOOOO 



OOOOO 
00236 
77653 



746247303460 
OOOOO 00003 



53400 
53400 
53400 
50000 
621C0 
7710O 
40000 
63400 
63400 
63400 
73400 
62100 
62100 
63400 
50000 
60200 
76200 
50000 
77100 
10000 
34000 
OOOOO 
OOOOO 
34000 
OOOOO 
OOOOO 
76000 
32000 
73400 
00001 
0OO10 
76000 
00004 
76000 
00002 
76000 
00001 
76000 
76200 
76000 
50000 
53400 
34000 



OOOOO 
77653 

00140 
00146 
00031 
00001 
00021 
00022 
00001 
00140 
00146 
00031 
00013 
00052 
00077 
00026 
00222 
00104 
00361 
O0021 
00036 
00220 
00233 
00027 
00047 
00234 
00032 
00050 
00372 
00034 
00017 
00036 
00040 
00370 
00042 
00364 
00044 
00362 
00046 
00361 
00361 
00365 
00232 
00112 
OOOOO 



CONTROL CARD FOR SPH. 
ORG 

PZE C0L1+1 
PZE COMMON 
BCD l(SPH) 

3 

END OF SPH CONTROL CARD* 

SPH FOR FORTRAN II 





COMMON 
RPT 



LMT 



Lll 



T4 
T5 



Z2 

PR6 

BK 

0Z2 

X4 

DIGF 

MK 

N2 

N3 

N4 

N5 

RPR 

PR 2 



ORG 
SYN -85 
LXD XI »1 
LXD X2*2 
LXD X4»4 
CLA lf4 
STA T5 
ARS 18 
ADD 1»4 
SXD XI tl 
SXD X2«2 
SXD X4»4 
PDX 11»4 
STA PR2 
STA CI 9 
SXD PR6f4 
CAL DEL 
SLW 1ST 
RPR 
CAL * 
ARS 30 
TZE SP4 
CAS YZONE 
TXL BK 
TXL RPR+1 
CAS BNK 
TXL DIGF 
TXL RPR+2 
SPR 10 
ANA MIC 
PAX 15»1 
TXI N2»l»l 
TNX N3»l»8 
SPR 8 

TNX N4»l»4 
SPR 4 

TNX N5»l»2 
SPR 
TNX 
SPR 
RPR 
SPR 5 
CLA BLNKS 
LXD CI4»4 
CAS 0*4 



RPR»1»1 

1 



PREPARE TO CAUSE LINE 

TO BE PRINTED AGAIN AND THE 

PR06RAM TO CONTINUE 

OBTAIN STARTING LOCATION OF BUFFER AREA * 

SUPPLY ADDRESS 

* FOR LINE IMAGE IN BCD 

X 



SAVE LOCATION 



SAVE LOCATION 



SELECT PRINTER 

OBTAINFIRST CHARACTER 

X 

DOUBLE SPACE IF ZERO 

TEST FOR SPACE SUPPRESS 

NO 

SUPPRESS SPACE 

TEST FOR BLANK 

NO 

SET CHANNEL SKIP 

MASK OUT ZONE 

OBTAIN SPR COMBINATION 

X 

X 

X 

X 

X 

X 

X 

X 

X 

SELECT PRINTER AGAIN 

SUPPRESS SPACE 

FIND LAST NON-BLANK GROUP 

X 

X 



SPH/C01 
SPH/C02 
SPH/C03 
SPH/C04 
SPH/C05 
SPH/C06 
SPH/C07 
SPH 0001 
SPH 0002 
SPH 0003 
SPH 0004 
SPH 0005 
SPH 0006 
SPH 0007 
SPH 0008 
SPH 0009 
SPH 0010 
SPH 0011 
SPH 0012 
SPH 0013 
SPH 0014 
SPH 0015 
SPH 0016 
SPH 0017 
SPH 0018 
SPH 0019 
SPH 0020 
SPH 0021 
SPH 0022 
SPH 0023 
SPH 0024 
SPH 0025 
SPH 0026 
SPH 0027 
SPH 0028 
SPH 0029 
SPH 0030 
SPH 0031 
SPH 0032 
SPH 0033 
SPH 0034 
SPH 0035 
SPH 0036 
SPH 0037 
SPH 0038 
SPH 0039 
SPH 0040 
SPH 0041 
SPH 0042 
SPH 0043 
SPH 0044 
SPH 0045 
SPH 0046 



<m 



U 



O 



TO 



00053 


1 


77777 


4 


00056 




TXI 


PR1»4* 


*1 


00054 


1 


00001 


4 


00052 




TXI 


PR 2* 4* 


1 


00055 


1 


77777 


4 


00056 




TXI 


PR 1*4 » 
CI6»4 


-1 


00056 


-0 


63400 


4 


00116 


PR1 


5X0 




00057 


-0 


63*00 


4 


00130 




SXO 


Ci8»4 




00060 


-0 


63400 


4 


00063 




6X0 


PR8»4 




00061 


-0 


63400 


4 


00213 




SXD 


WP4»4 




00062 


-o 


53400 


4 


00026 


t 


LXD 


PR6*4 




00063 


-2 


00000 


4 


00067 


PR8 


TNX 


PR5»4 




00064 


-3 


00014 


4 


00066 




TXL 


PR3»4* 


12 


00065 





76000 





00370 




SPR 


8 




00066 


-0 


53400 


4 


00026 


PR3 


LXD 


PR6*4 




00067 





53400 


2 


00071 


PR5 


LXA 


PR7*2 




00070 


-0 


53400 


1 


00133 




tXD 


YZ1»1 




00071 


-0 


75400 





00000 


PR7 


PXO 






00072 





60200 


1 


77714 


PR4 


SLW 


LT»1 




00073 





60200 


1 


77674 




SLW 


RT»1 




00074 


2 


00001 


1 


00072 




TIX 


PR4#1» 


1 


00075 


-0 


50000 





00235 


CIR 


CAL 


C0L1 




00076 





60200 





77653 


CI2 


SLW 


COL 




00077 





56000 


4 


00000 


CI9 


LDQ 


0*4 




00100 


-0 


63400 


4 


00030 




SXO 


0Z2»4 




00101 





53400 


4 


00103 




LXA 


06f4 




00102 


-0 


75400 





00003 


CI1 


PXD 


LMT 




00103 


-0 


76300 





00006 


06 


LGL 


6 




00104 





7340O 


1 


00000 


1ST 


PAX 


0*1 




00105 


-0 


50000 





77653 




CAL 


COL 




00106 





77100 


4 


00006 




ARS 


6*4 




00107 


2 


00020 


1 


00133 




TIX 


YZ1»1» 


16 


00110 


3 


00017 


1 


00136 




TXH 


Y22»lt 


15 


00111 


-0 


60200 


3 


77711 


CI5 


ORS 


0*3 




00112 


2 


00001 


4 


00102 


CI4 


TIX 


CI1»4» 


1 


00113 





77100 





00001 


CI3 


ARS 


1 




00114 


-0 


53400 


4 


00030 




LXD 


022f4 




00115 


1 


77777 


4 


00116 




TXI 


CI6*4» 


-1 


00116 


-3 


00000 


4 


00120 


CI6 


TXL 


CI7*4 




00117 


-0 


10000 





00076 




TNZ 


CI 2 




00120 


-0 


50000 


2 


77676 


CI7 


CAL 


8.3*2 




00121 


-0 


60200 


2 


77701 




ORS 


D-8»2 




00122 


-0 


60200 


2 


77706 




ORS 


0-3*2 




00123 





60200 


2 


77677 




SLW 


8*2*2 




00124 


-0 


50000 


2 


77675 




CAL 


8«4»2 




00125 


-0 


60200 


2 


77701 




ORS 


D-8»2 




00126 


-0 


60200 


2 


77705 




ORS 


0-4*2 




00127 





60200 


2 


77676 




SLW 


8*3*2 




00130 


-3 


00000 


4 


00153 


CI8 


TXL 


WP*4 




00131 


3 


00017 


2 


00153 




TXH 


WP*2»15 


00132 


1 


00020 


2 


00075 




TXI 


CIR»2* 


16 


00133 


2 


00020 


1 


00141 


YZ1 


TIX 


XZ1»1* 


16 


00134 


3 


00017 


1 


00144 




TXH 


X22*l» 


15 


00135 


-0 


60200 


3 


77711 




ORS 


0*3 




00136 


-o 


60200 


2 


77713 


Y22 


ORS 


Y*2 




00137 


2 


00001 


4 


00102 




TIX 


CI1*4* 


1 


00140 


-3 


00000 





00113 


XI 


TXL 


CX3 





X 
X 
X 

STORE END TEST 

X 

X 

X 

X * 



FIRST CYCLE 

INITIALIZE GROUP COUNT 

INITIALIZE LEFT SETUP 

CLEAR CARD IMAGE 

X 

X 

X 

X 

INITIALIZE COLUMN INDICATOR 

X 

OBTAIN GROUP 
STORE GROUP COUNT 
SET CHARACTER COUNT 



POSITION COLUMN INDICATOR 

X 

TEST FOR DIGIT 

TEST FOR Y-ZONE 

STORE DIGIT 

COUNT CHARACTERS 

SHIFT AND TEST COLUMN 

RESTORE GROUP COUNT 

COUNT GROUPS 

TEST FOR LAST NON-BLANK GROUP 

TEST FOR END OF ROW 

FORM TRUE 8*4 

AND 3 ROWS AND 

MOVE 8*4 AND 8*3 

ROWS 

FORM TRUE 8*4 

X 

X 

X 

TEST FOR END 

TEST FOR RIGHT HALF 

INITIALIZE RIGHT HALF 

TEST FOR 16/CH/32 

TEST FOR X-ZONE 

STORE DIGIT 

STORE Y-ZONE 

COUNT CHARACTERS 

OBTAIN NEXT GROUP 



SPH 


0047 


SPH 


0048 


SPH 


0049 


SPH 


0050 


SPH 


0051 


SPH 


0052 


SPH 


0053 


SPH 


0054 


SPH 


0055 


SPH 


0056 


SPH 


0057 


SPH 


0058 


SPH 


0059 


SPH 


0060 


SPH 


0061 


SPH 


0062 


SPH 


0063 


SPH 


0064 


SPH 


0065 


SPH 


0066 


SPH 


0067 


SPH 


0068 


SPH 


0069 


SPH 


0070 


SPH 


0071 


SPH 


0072 


SPH 


0073 


SPH 


0074 


SPH 


0075 


SPH 


0076 


SPH 


0077 


SPH 


0078 


SPH 


0079 


SPH 


0080 


SPH 


0081 


SPH 


0082 


SPH 


0083 


SPH 


0084 


SPH 


0085 


SPH 


0086 


SPH 


0087 


SPH 


0088 


SPH 


0089 


SPH 


0090 


SPH 


0091 


SPH 


0092 


SPH 


0093 


SPH 


0094 


SPH 


0095 


SPH 


0096 


SPH 


0097 


SPH 


0098 


SPH 


0099 


SPH 


0100 



r vl 



JO L 





00141 


2 OOO20 


1 


00147 


XZ1 


TIX 


0Z1*1*16 




00142 


3 00017 


1 


00112 




TXH 


CI4»1»15 




00143 


-0 6020C 


3 


77711 




ORS 


D»3 




00144 


-0 602CC 


2 


77712 


XZ2 


ORS 


Xt2 




00145 


2 oooc: 


4 


00102 




TIX 


CI1»4*1 


TD 


00146 


-3 O00G* 





00113 


X2 


TXL 


CI3 




00147 


-0 60200 


2 


77711 


0Z1 


ORS 


1*2 




00150 


-0 60200 


3 


77711 




ORS 


D»3 




00151 


2 0000. 


4 


00102 




TIX 


CI1»4«1 


TD 


00152 


-3 00000 





00113 




TXL 


CI3 




00153 


-0 53400 


1 


00025 


WP 


LXD 


Z2»l 




00154 


70000 


1 


77700 


c 


CPY 


LT-12»1 




00155 


70000 


1 


77660 




CPY 


RT-12»1 




00156 


1 77777 


1 


00157 




TXI 


T2»l»-1 




00157 


3 77767 


1 


00154 


T2 


TXH 


C*l#-9 




00160 


70000 


1 


77703 




CPY 


LECH0-9»1 




00161 


70000 


1 


77716 




CPY 


RECH0-9»1 




00162 


3 77764 


1 


00154 




TXH 


C»l»-12 




00163 


3 77755 


1 


00156 




TXH 


T2-l»lt-19 




00164 


53400 


1 


00217 




LXA 


L2»l 




00165 


-0 50000 


1 


77716 


CL 


CAL 


LECH0+2»1 




00166 


-0 60200 





77717 




ORS 


LECH0+3 




00167 


-0 60200 


1 


77725 




ORS 


LECH0+9»1 




00170 


-0 50000 


1 


77731 




CAL 


RECH0+2»1 




00171 


-0 60200 





77732 




ORS 


RECH0+3 




00172 


-0 60200 


1 


77740 




ORS 


RECH0+9»1 




00173 


2 00001 


1 


00165 




TIX 


CLfl»l 




00174 


53400 


1 


00012 




LXA 


Lllfl 




00175 


-0 50000 


1 


77711 


T9 


CAL 


8.4L+11»1 




00176 


76000 





00006 




COM 






00177 


36100 


1 


77727 




ACL 


LECH0+11»1 




00200 


76000 





00006 




COM 






00201 


-0 10000 





00207 




TNZ 


ERRL 




00202 


-0 50000 


1 


77671 


R 


CAL 


8.4R+11»1 




00203 


76000 





00006 




COM 






00204 


36100 


1 


77742 




ACL 


RECHO+llfl 




00205 


76000 





00006 




COM 






00206 


10000 





00212 




TZE 


ERR+1 




00207 


56000 





00226 


ERRL 


LOG 


RES 




00210 


-0 60000 





00000 




STQ 







00211 


42000 


4 


00000 


ERR 


HPR 


0.4 




00212 


2 00001 


1 


00175 




TIX 


T9»l»l 


D 


00213 


3 00000 


4 


00227 


WP4 


TXH 


WP5»4 




00214 


-0 53400 


1 


00140 




LXD 


Xl»l 




00215 


-0 53400 


2 


00146 




LXD 


X2f2 




00216 


-0 53400 


4 


00031 


WT2 


LXD 


X4t4 




00217 


02000 


4 


00002 


L2 


TRA 


2»4 




00220 


76000 





00364 


SP4 


SPR 


4 


TD 


00221 


-3 00000 





00050 




TXL 


RPR+2 


TD 


00222 


-3 00000 





00223 


DEL 


TXL 


FIX 




00223 


-0 50000 





00034 


FIX 


CAL 


MK 




00224 


60200 





00104 




SLW 


1ST 




00225 


2 00001 


4 


00102 




TIX 


CU»4«1 




00226 


02000 





00000 


RES 


TRA 


RPT 



TEST FOR 32/CH/48 
TEST FOR BLANK. 
STORE DIGIT 
STORE X-ZONE 
COUNT CHARACTERS 
OBTAIN NEXT GROUP 
STORE 0-ZONE 
STORE DIGIT 
COUNT CHARACTERS 

COPY LOOP 

CARD IMAGE COPIES 

X 

TEST FOR ECHO 

ECHO COPIES 

X 

TEST FOR END OF CARD IMAGE 

TEST FOR END OF ECHOS 

8.3 AND 8.4 ECHOS INTO 

8 AND 3 AND 4 ECHO ROWS 

X 

X 

X 

X 

X 

LEFT ECHO CHECK 

X 

X 

X 
LEFT ECHO CHECK ERROR 
RIGHT ECHO CHECK 

X 

X 

X 
RIGHT ECHO CHECK ERROR 
SET UP FOR SECOND ATTEMPT TO PRINT LINE 

X 

ECHO CHECK ERROR. RESTART OR CONTINUE 

CONTINUE 

TEST FOR SECOND CYCLE 

NOt RELOAD INDEX REGISTERS AND RETURN 

X 

X 

X 

DOUBLE SPACE 



SPH 


0101 


SPH 


0102 


SPH 


0103 


SPH 


0104 


SPH 


0105 


SPH 


0106 


SPH 


0107 


SPH 


0108 


SPH 


0109 


SPH 


0110 


SPH 


0111 


SPH 


0112 


SPH 


0113 


SPH 


0114 


SPH 


0115 


SPH 


0116 


SPH 


0117 


SPH 


0118 


SPH 


0119 


SPH 


0120 


SPH 


0121 


SPH 


0122 


SPH 


0123 


SPH 


0124 


SPH 


0125 


SPH 


0126 


SPH 


0127 


SPH 


0128 


SPH 


0129 


SPH 


0130 


SPH 


0131 


SPH 


0132 


SPH 


0133 


SPH 


0134 


SPH 


0135 


SPH 


0136 


SPH 


0137 


SPH 


0138 


SPH 


0139 


SPH 


0140 


SPH 


0141 


SPH 


0142 


SPH 


0143 


SPH 


0144 


SPH 


0145 


SPH 


0146 


SPH 


0147 


SPH 


0148 


SPH 


0149 


SPH 


0150 


SPH 


0151 


SPH 


0152 


SPH 


0153 


SPH 


0154 



r A 



•V 



u 



U 



00227 


76200 00361 


WP5 


RPR 




00230 


76000 00371 




SPR 


9 


00231 


-3 00014 00067 


WP2 


TXL 


PR5»0»12 


00232 


606060606060 


BLNKS 


3C0 


1 


00233 


+000000000020 


YZONE 


OCT 


20 


00234 


+000000000060 


BNK 


OCT 


60 


00235 


-0 00000 00000 


C0L1 


MZE 






77653 




ORG 


COMMON 




77653 


COL 


BSS 


1 




77674 


RT 


BES 


16 




77674 


8.5 


BSS 


1 




77675 


6«4 


BSS 


1 




77676 


8.3 


BSS 


1 




77677 


8*2 


BSS 


1 




77711 


D 


BES 


9 




77711 


I 


BSS 


1 




77712 


X 


BSS 


1 




77713 


Y 


BSS 


1 




77714 


LT 


SYN 


Y+l 




77676 


8.4L 


SYN 


LT-14 




77656 


8.4R 


SYN 


RT-14 




77714 


LECHO 


BSS 


11 




77727 


RECHO 


BSS 


11 




00102 


CSPH) 


SYN 


CI1 




00000 




END 





SELECT PRINTER AGAIN 
SECOND CYCLE 
CONVERT REST OF LINE 



SPH 
SPH 
SPH 
SPH 
SPH 
SPH 
SPH 
SPH 
SPH 
SPH 
SPH 
SPH 
SPH 
SPH 
SPH 
SPH 
SPH 
SPH 
SPH 
SPH 
SPH 
SPH 
SPH 
SPH 
SPH 



0155 
0156 
0157 
0158 
0159 
0160 
0161 
0162 
0163 
0164 
0165 
0166 
0167 
0168 
0169 
0170 
0171 
0172 
0173 
0174 
0175 
0176 
0177 
0178 
0179 



L 



ABS 



OOOOO 
OOOOl 
00002 
00003 



OOOOO 
00001 
00002 
OOO03 
00004 
00005 
00006 
00007 
00010 
00011 
00012 
00013 



OOOOO 

00014 
OOOOO 



OOOOO 
OOOOO 
746263303460 
OOOOO OOOOO 



50000 
77100 
40000 
63400 
73400 
62100 
70000 
0Q001 
76600 
53400 
02000 
OOOOO 



OOOOO 
4 00001 
O 00022 
4 00001 
4 00013 
4 OOOOO 
00006 
4 OOOOO 
4 00006 
00333 
4 00013 
4 00002 
00001 

OOOOO 



ORG 

PZE 
PZE 
BCD 
PZE 

ORG 

WOT CLA 
ARS 
ADD 
SXD 
(STH) PDX 
STA 

WT1 CPY 
TIX 
IOD 
LXD 
TRA 
X4 HTR 
END 



CONTROL CARD FOR STH* 



X4+1 

KSTHJ 

END OF STH CONTROL CARD* 



1,4 CALCULATE ADDRESS 

18 FOR COPY INSTRUCTION 

1»4 X 

X4»4 SAVE INDEX REGISTER 

W0T»4 COUNT OF WORDS PER RECORD TO IR4 

WT1 SUPPLY ADDRESS TO CPY INSTRUCTION 

0#4 COPY RECORD TO OUTPUT TAPE 

WT1»4«1 X 

INPUT OUTPUT DELAY 

X4>4 RESTORE IR4» RETURN TO 

2»4 MAIN PROGRAM 

1 STORAGE FOR INDEX REGISTER 4 



STH/C01 

STH/C02 

STH/C03 

STH/C04 

STH/C05 

STH/C06 

STH/COT 

STHF2001 

STHF2002 

STHF2003 

STHF2004 

STHF2005 

STHF2006 

STHF2O07 

STHF2008 

STHF2009 

STHF2010 

STHF2011 

STHF2012 

STHF2013 

STHF2014 



<//6- 



u 



u 



1 




ABS 






LRT/COO 


1 






CONTROL 


CARD FOR LRT. 




A 




00000 


ORG 








00000 


00000 00120 


PZE BT+1 








00001 


00000 00000 


PZE 








00002 


744325653460 


BCD 1UEV) 








00003 


00000 00000 


PZE (LEV) 








00004 


745163453460 


BCD KRTN) 








00005 


00000 00041 


PZE (RTN) • 
END OF 


LRT CONTROL CARD. 










# # * * 


********** 


******** 



LRT/C01 
LRT/C02 
LRT/C03 
LRT/C04 
LRT/C05 
LRT/C06 
LRT/C07 
LRT/C08 
LRT/C09 



********* 



00000 



ooooo 





40000 


00114 


(LEV) 


ADD 


L(2J 


00001 





62100 


00040 




STA 


BAK 


00002 


-0 


76000 


00012 




RTT 




00003 





76100 


OOOOO 




NOP 




00004 





62100 


00075 




STA 


RT 


00005 


-0 


63400 1 


00017 




SXD 


ERX1.1 


00006 


-o 


63400 2 


00046 




SXD 


ERX2.2 


00007 


-0 


63400 4 


00111 




SXD 


ERX4»4 


00010 


-0 


50000 


OOOOO 




CAL 





00011 





60200 


00112 




SLW 


CCOJ 


00012 


-0 


50000 


00001 




CAL 


1 


00013 





60200 


00113 




SLW 


cm 


00014 


-0 


50000 


00020 




CAL 


TON 


00015 





60200 


00001 




SLW 


1 


00016 





50000 


00023 




CLA 


LTM 


00017 


1 


OOOOO 


00022 


ERX1 


TXI 


SET»Ot»* 


00020 





02100 


00021 


TON 


TTR 


CHS 


00021 





76000 


00002 


CHS 


CHS 




00022 





60100 


00065 


SET 


STO 


RTM 


00023 


-o 


76000 


00007 


LTM 


LTM 




00024 





50000 


00064 




CLA 


NOP 


00025 





14000 


00027 


TOV 


TOV 


SETAC 


00026 





50000 


00025 




CLA 


TOV 


00027 





62200 


00060 


SETAC 


STD 


AVR 


00030 





50000 


00064 




CLA 


NOP 


00031 





16100 


00033 


TQO 


TOO 


SETMQ 


00032 





50000 


00031 




CLA 


TQO 


00033 





62200 


00061 


SETMQ 


STD 


QVR 


00034 





50000 


00035 




CLA 


DCT 


00035 





76000 


00012 


DCT 


DCT 




00036 





50000 


00064 




CLA 


NOP 


00037 





60100 


00063 




STO 


DCR 


00040 





02100 


OOOOO 


BAK 


TTR 


** 

END OF PROGRAM (LEV). 
#***#*****» 



00041 -0 76000 00007 (RTN) 



ORG LRT/C 

(LEV)/ CALLER=MAIN PROGRAM* LRT/001 

(LEV) SAVES ALL INDICATORS BEFORE I/O TRANSMISSION. LRT/002 

SET UP FOR RETURN LRT/003 

TO CONTROL LOOP. LRT/004 

MAKE CERTAIN REDUNDANCY LRT/005 

INDICATOR IS TURNED OFF. LRT/006 
SAVE FOR 2ND TRY. IF NECESSARY= LRT/007 

STARTING LOCATION. AND THE LRT/008 

CONTENTS OF XR1. XR2* LRT/009 

AND XR4. LRT/010 

ALSO SAVE THE LRT/011 

CONTENTS OF LOCATION 0# LRT/012 

AND THE LRT/013 

CONTENTS OF LOCATION 1. LRT/014 

SET DP FOR LRT/015 

PREVIOUS TRAP LRT/016 

MODE CONDITION. LRT/017 

IF IN TRAPPING MODE* THEN LRT/018 
INSTRUCTION EXECUTED IN LOCATION l.LRT/019 

CHANGE LTM TO ETM. AND LRT/020 
SET RTM TO RESTORE TRAPPING COND. LRT/021 

LEAVE TRAPPING MODE. AND LRT/022 

THEN LRT/023 

RETAIN PREVIOUS LRT/024 

AC OVERFLOW CONDITION LRT/025 

IN AVR. LRT/026 

THEN LRT/027 

RETAIN PREVIOUS LRT/028 

MQ OVERFLOW CONDITION LRT/029 

IN QVR. LRT/030 

THEN LRT/031 

RETAIN PREVIOUS LRT/032 

DIVIDE CHECH CONDITION LRT/033 

IN DCR* LRT/034 

* EXIT TO MAIN PROGRAM. LRT/035 

LRT/036 
******************* *LRT/037 

LRT/038 

(RTN)/ CALLERS=MA1N PROGRAM, (FID • LRT/039 

CRTN) RESTORES ALL INDICATORS AFTER I/O TRANSMISSION. LRT/040 

LTM LEAVE TRAPPING MODE. AND LRT/041 



?/ 



501 





00042 





40000 


00114 




ADD L ( 2 J 




00043 





62100 


00066 




STA RET 




00044 





76600 


00333 




IOD 




00045 


-0 


76000 


00012 




RTT 




00046 


1 


00000 


00067 


ERX2 


TXI TRY.O.** 




00047 


-0 


50000 


00071 


GOOD 


CAL TXLOP 




00050 





63000 


00067 




STP try 

RES = ENTRY POINT l^ED BY 
















* 00051 


-0 


50000 


00112 


RES 


CAL CfO) 




00052 





60200 


00000 




SLW 




00053 


-0 


50000 


00113 




CAL C(l) 




00054 





60200 


00001 




SLW 1 




00055 





76600 


00333 




IOD 




00056 





56000 


00115 




LDO MAX 




00057 





26000 


00115 




FMP MAX 




00060 





00000 


00061 


AVR 


PZE QVR*.** 




00061 





00000 


00062 


OVR 


PZE NXT**** 




00062 





22100 


00116 


NXT 


DVP ZER 




00063 





00000 


00000 


DCR 


PZE ** 




00064 





76100 


00000 


NOP 


NOP 




00065 





00000 


00000 


RTM 


PZE ** 




00066 





02100 


ooooo 


RET 


TTR ** * 





00067 


-3 


00000 


00072 


TRY 


TXL TRY1.0 




00070 





42000 7 


00007 




HPR 7*7 





00071 


-3 


00000 


00047 


TXLOP 


TXL GOOD*0 




00072 





50000 


00071 


TRY1 


CLA TXLOP 




00073 





63000 


00067 




STP TRY 




00074 





53400 1 


00116 




LXA ZER*1 




00075 





56000 1 


00000 


RT 


LDQ **»1 




00076 


-0 


75400 


00000 




PXD tO 




00077 


-0 


76300 


00014 




L6L 12 




00100 





40200 


00117 




SUB BT 




00101 





10000 


00103 




TZE CONT 




00102 


1 


77777 1 


00075 




TXI RT*1*-1 




00103 


-0 


76300 


00030 


CONT 


LGL 24 




00104 





62100 


00105 




STA BST 




00105 





76400 


00200 


BST 


BST ** 




00106 


-0 


53400 1 


00017 




LXD ERX1*1 




00107 


-0 


53400 2 


00046 




LXD ERX2*2 




00110 


-0 


53400 4 


00111 




LXD ERX4*4 




00111 


1 


00000 


00040 


ERX4 


TXI BAK»0»** * 
END OF PROGRAM {RTNL 



00112 OOOOO OOOOO C(OJ 

00113 OOOOO OOOOO cm 

00114 OOOOO 00002 L(2> 

00115 +377777777777 MAX 

00116 OOOOO OOOOO ZER 

00117 +000000000762 BT 



SET UP FOR RETURN 

TO CONTROL LOOP. 

INPUT-OUTPUT DELAY. 

IF BINARY TAPE READING WAS NOT 

CORRECT* THEN TRY AGAIN. 

OTHERWISE* CONTINUE. 

SET TRY TO TRANSFER CASE. 

(FID. # 

RESTORE 

THE C(0)* 

RESTORE 

THE cm. 

INPUT-OUTPUT DELAY. 

FORCE ALL TEST 

CONDITIONS 0N» AND THEN 

RESTORE ORIGINAL AC OV CONDITION. 

RESTORE ORIGINAL MQ OV CONDITION. 

AND THEN 

RESTORE ORIGINAL DIVIDE CHECK COND 

AND THEN 

RESTORE ORIGINAL TRAP MODE COND. 

EXIT TO MAIN PROGRAM. 

OPSWITCH (TXL=TRA» TXH-NOP). 

HALT AFTER 2ND FAILURE. 

PRESS START TO ACCEPT RECORD. 

SET TRY TO NO TRANSFER CASE 

FOR 2ND ATTEMPT AT READING RECORD. 

SET XR1 « 0* AND 

OBTAIN RTB LOCATION. 

OBTAIN OPERATION 

BITS* AND TEST 

FOR LOCATION RTB. 

IF NOT* THEN ADJUST THE 

CfXRl>» AND CONTINUE SEARCH. 

WHEN FOUND* SET 

CURRENT TAPE ADDRESS. 

BACKSPACE CURRENT TAPE. 

RESTORE THE 

ORIGINAL CONTENTS OF 

XR1»XR2* AND XR4. 

EXIT TO MAIN PROGRAM FOR 2ND TRY. 

***♦#****#******* 

CONSTANTS AND WORKING STORAGE USED BY LEV/RTN/FIL/BDC. 

p zE ♦« VARIABLE USED BY LEV/RTN/FIL/BDC. 

p 2E ♦« VARIABLE USED BY LEV/RTN/FIL/BDC. 

p zE 2 CONSTANT USED BY LEV/RTN/FIL/BDC. 

OCT 377777777777 CONSTANT USED BY LEV/RTN/FIL/BDC. 

PZE o CONSTANT USED BY LEV/RTN/FIL/BDC. 

OCT 000000000762 CONSTANT USED BY LEV/RTN/FIL/BDC. 

END OF CONSTANTS AND WORKING STORAGE USED BY LEV/RTN. 

**************** * * ************ 



LRT/042 
LRT/043 
LRT/044 
LRT/045 
LRT/046 
LRT/047 
LRT/048 
LRT/049 
LRT/050 
LRT/051 
LRT/052 
LRT/053 
LRT/054 
LRT/055 
LRT/056 
LRT/057 
LRT/058 
LRT/059 

•LRT/060 
LRT/061 
LRT/062 
LRT/063 
LRT/064 
LRT/065 
LRT/066 
LRT/067 
LRT/068 
LRT/069 
LRT/070 
LRT/071 
LRT/072 
LRT/073 
LRT/074 
LRT/075 
LRT/076 
LRT/077 
LRT/078 
LRT/079 
LRT/080 
LRT/081 
LRT/082 
LRT/083 

•LRT/084 
LRT/085 
LRT/086 
LRT/087 
LRT/088 
LRT/089 
LRT/090 
LRT/091 
LRT/092 
LRT/093 

♦LRT/094 
LRT/095 



u 



o 



00000 END 



lRT/096 



W 



1 
1 




A3S 


CONTROL CARD FOR EXPd 






00000 


ORG 




ooooo 


00000 00042 


PZE EXP+1 




00001 


OOOOO 77776 


P2E FACTOR 




00002 


256747740160 


BCD lEXPd 




00003 


OOOOO OOOOO 


PZE 



OOOOO 



OOOOO 





10000 


4 


00001 


EXPd 


TZE 


1#4 


00001 





77100 





00022 




ARS 


18 


00002 





60100 





77777 




STO 


POWER 


00003 





76300 





00021 




LLS 


17 


00004 





62100 





00041 




STA 


EXP 


00005 





50000 





00041 




CLA 


EXP 


00006 


-0 


10000 





00011 




TNZ 


ENZ 


00007 





56000 





00040 




LDQ 


FIXONE 


00010 





02000 





00036 




TRA 


EXIT 


00011 





50000 





00040 


ENZ 


CLA 


FIXONE 


00012 


-0 


40000 





77777 




SBM 


POWER 


00013 





10000 





00016 




TZE 


N 


00014 





16200 





00016 




TQP 


N 


00015 





02000 





00036 




TRA 


EXIT 


00016 





50000 





00040 


N 


CLA 


FIXONE 


00017 





60100 





77776 




STO 


FACTOR 


00020 





50000 





00041 


CLA1 


CLA 


EXP 


00021 





76000 





00001 




LBT 




00022 





02000 





00026 




TRA 


CLA2 


00023 





56000 





77777 




LDQ 


POWER 


00024 





20000 





77776 




MPY 


FACTOR 


00025 


-0 


60000 





77776 




STQ 


FACTOR 


00026 





50000 





00041 


CLA2 


CLA 


EXP 


00027 





77100 





00001 




ARS 


1 


00030 





60100 





00041 




STO 


EXP 


00031 





10000 





00036 




TZE 


EXIT 


0003 2 





56000 





77777 




LDQ 


POWER 


00033 





20000 





77777 




MPY 


POWER 


0Q034 


-0 


60000 





77777 




STQ 


POWER 


00035 





02000 





00020 




TRA 


CLA1 


00036 





76300 





00065 


EXIT 


LLS 


53 


00037 





02000 


4 


00001 




TRA 


1»4 

WORKING ST 


00040 


•4-000000000001 


FIXONE 


DEC 


1 


00041 





OOOOO 





OOOOO 


EXP 














77777 


POWER 


SYN 


-1 










77776 


FACTOR 


SYN 


-2 










OOOOO 




END 





END OF EXPd CONTROL CARD* 
ORG 

EXPONENTIATION SUBROUTINE 

FIXED POINT BASE» FIXED POINT EXPONENT 

EXIT FOR ZERO BASE 



SAVE BASE 



IS POWER 
A FACTOR 
NO 
YES 



COMPUTE 

NEXT 

POWER 



XP1/C01 

XPUC02 

XP1/C03 

XP1/C04 

XP1/C05 

XP1/C06 

XP1/C07 

EXP10001 

EXP 10002 

EXP10003 

EXP 10004 

EXP10005 

EXP100O6 

EXP 10007 

EXP 10008 

EXP 10009 

EXP 10010 

EXP 100 11 

EXP10012 

EXP10013 

EXP10014 

EXP 10015 

EXP 100 16 

EXP 100 17 

EXP 10018 

EXP10019 

EXP10020 

EXP10021 

EXP 10022 

EXP 10023 

EXP 10024 

EXP1O025 

EXP10026 

EXP 10027 

EXP10028 

EXP10029 

EXP10030 

EXP10031 

EXP10032 

EXP 100 33 

EXP10034 

EXP10035 

EXP 10036 

EXP10037 

EXP10038 

EXP10039 

EXP10040 

EXP10041 



u 



u 



ABS 



TO 



00000 
00001 
00002 
00003 



00000 
00001 
00002 
00003 
00004 
00005 
00006 
00007 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
0O017 
00020 
00021 
00022 
00023 
00024 
00025 
00026 
00027 
00030 
00031 
0O032 
00033 
00034 
00035 
00036 
00037 
00040 
00041 
00042 
00043 
00044 



00000 

00050 
77776 



00000 

00000 

256747740260 

00000 00000 



10000 
63400 
16200 
53400 
77777 
53400 
60100 
75400 
76300 
62100 
50000 
10000 
50000 
02000 
50000 
60100 
50000 
76000 
00000 
56000 
26000 
60100 
50000 
77100 
60100 
10000 
56000 
26000 
60100 
02000 
50000 
00000 
50000 
24000 
75400 
76300 
53400 



00000 



4 00001 
2 00022 
00005 
2 00004 
00006 
2 00037 
77777 
00000 
00021 
00047 
00047 
00016 
00046 
00044 
00046 
77776 
00047 
00001 
00026 
77777 
77776 
77776 
00047 
00001 
00047 
00036 
77777 
77777 
77777 
00020 
77776 
2 00044 
00046 
77776 
00000 
00043 
2 00022 



CONTROL CARD FOR EXP (2 
0R6 
PZE EXP+1 
PZE FACTOR 
BCD 1EXP<2 
PZE 

END OF EXP (2 CONTROL CARD. 

ORG J) 

EXPONENTIATION SUBROUTINE 

FLOATING POINT BASE* FIXED POINT EXPONENT 



EXP<2 



NEGONE 
MQPOS 



N 

CLA1 

SAVEX 

CLA2 



00045 02000 4 00001 

00046 +201400000000 

00047 00000 00000 

77777 
77776 



TXL 



EXIT 



FLOONE 

EXP 

POWER 
FACTOR 



TZE 1»4 

SXD SAVEX* 2 

TOP MQPOS 

LXD NEGONE »2 

TXL MQP0S+1*0»~1 

LXD TXLt2 

STO POWER 

PXD 

LLS 17 

STA EXP 

CLA EXP 

TNZ N 

CLA FLOONE 

TRA EXIT 

CLA FLOONE 

STO FACTOR 

CLA EXP 

LBT 

TXL CLA2 

LDQ POWER 

FMP FACTOR 

STO FACTOR 

CLA EXP 

ARS 1 

STO EXP 

TZE TXL-1 

LDQ POWER 

FMP POWER 

STO POWER 

TRA CLA1 

CLA FACTOR 

TXL EXXT»2 

CLA FLOONE 

FDH FACTOR 

PXD 

LLS 35 

LXD SAVEX t. 2 

WORKING STORAGE 
TRA 1»4 
DEC 1*0 

SYN -1 
SYN -2 



EXIT FOR ZERO BASE 



SET NEGATIVE MO INDICATOR 



SET POSITIVE MO 
INITIALIZATION 

X 
X 



X 

X 

IS POWER 

A FACTOR 

NO 

YES 



INDICATOR 



XP2/C01 

XP2/C02 

XP2/C03 

XP2/C04 

XP2/C05 

XP2/C06 

XP2/C07 

EXP20001 

EXP 2 000 2 

EXP20003 

EXP20004 

EXP20005 

EXP20006 

EXP2Q007 

EXP20008 

EXP20009 

EXP20010 

EXP200J1 

EXP20012 

EXP20013 

EXP20014 

EXP20015 

EXP2Q016 

EXP20017 

EXP2O018 

EXP20019 

EXP20020 

EXP20021 

EXP2O022 

EXP20023 

EXP20024 

EXP20025 

EXP20026 

EXP2O027 

EXP2O028 

EXP20029 

EXP20030 

EXP20031 

EXP20032 

EXP20033 

EXP20034 

EXP 20035 

EXP20036 

EXP20037 

EXP20038 

EXP20Q39 

EXP20040 

EXP20041 

EXP20042 

EXP20043 

EXP20044 

EXP20045 

EXP20046 



C,l > 



3D L 

EXP20047 
A 00000 END 



(,7(r 



u ■ u 



ABS 



00000 

00161 
77770 



00000 00000 

00001 00000 

00002 256747740360 

00003 00000 00000 

00004 256747606060 

00005 -0 00000 00010 

00006 434627606060 

00007 -0 00000 00107 

00000 





CONTROL 


CARD 


FOR 


EXPO 


ORG 




113 
-8 








BCD 


1EXPO 








PIE 










BCD 


1EXP 








MZE 


8 








BCD 


1L0G 








MZE 


71 









ORG 



00000 





10000 


4 


00001 


EXPO TZE 


00001 





76000 





00003 


SSP 


00002 


-0 


63400 


4 


77770 


SXO 


00003 


-0 


60000 





77772 


STQ 


00004 





07400 


4 


00111 


TSX 


00005 





76500 





00043 


LRS 


00006 





26000 





77772 


FMP 


00007 





07400 


4 


00012 


TSX 


00010 


-0 


53400 


4 


77770 


LXD LXO 


00011 





02000 


4 


00001 


TRA 


00012 





60100 





77773 


S816EX STO 


00013 





76000 





00003 


SSP 


00014 





40200 





00101 


SUB 


00015 





76500 





0Q000 


LRS 


00016 


-0 


75400 





00000 


PXD 


00017 





16200 





00075 


TOP 


00020 





40100 





77773 


ADM 


00021 





56000 





00110 


LDQ 


00022 





40200 





00107 


SUB 


00023 


-0 


12000 





00033 


TMI 


00024 





76500 





00033 


LRS 


00025 





62100 





00027 


STA 


00026 


-0 


75400 





00000 


PXD 


00027 





76300 





00000 


LLS 


00030 





22000 





00102 


DVH 


00631 





77100 





00010 


ARS 


00032 


-0 


77300 





00033 


ROL 


00033 





40000 





00107 


ADD 


00034 


-0 


60000 





77774 


STO 


00035 





30000 





00107 


FAD 


00036 





60100 





77775 


STO 


OO037 





56000 





77775 


LDO 


00040 





26000 





77775 


FMP 


00041 





60100 





77776 


STO 


00042 





30000 





00103 


FAD 


00043 





60100 





77777 


STO 


00044 





50000 





00104 


CLA 


00045 





24000 





77777 


FDH 



END OF EXPO CONTROL CARD* 



EXPONENTIATION SUBROUTINE 

FLOATING POINT BASE* FLOATING POINT EXPONENT 

1,4 BASE ZERO 

TXL»4 

EXP1 

LOG* 4 

35 

EXP1 

EXP*4 

TXL#4 

1*4 

LAS816 EXPONENTIAL SUBROUTINE 

COMM0N+00OOO »0 #00000 

00000*0*00000 

S816EX+00055*0*00000 

00000*0*00000 

00000*0*00000 

S8 16EX+0005 1 *0 »00000 

C0MMON+00000*0*0O000 

S816£X+00062*0*00000 

S816EX+00O61*0*000O0 

S816EX+00017»0»00000 

00027*0*00000 

S8 16EX+00013 »0*00000 

00000*0*00000 

00000*0*00000 

S816EX+00056*0*00000 

00008*0*00000 

00027*0*00000 

S8 16EX+00061 *0*00000 

COMMON+OOOOl*O»0OO00 

S816EX+0006 1*0*00000 

COMMON+0000 2*0*00000 

C0MMON+00002*0*O0000 

COMMON+000Q2»0»OOO00 

COMMON+00003»0*00000 

S816EX+00057»0»00000 

COMMON+00004*0»00000 

S816EX+00058»0»00000 

COMMON+00004*0*00000 



XP3/C01 

XP3/C02 

XP3/C03 

XP3/C04 

XP3/C05 

XP3/C06 

XP3/C07 

XP3/C08 

XP3/C09 

XP3/C10 

XP3/C11 

EXP30001 

EXP30002 

EXP30003 

EXP3OO04 

EXP30005 

EXP30OO6 

EXP30007 

EXP30008 

EXP30009 

EXP30010 

EXP30011 

EXP30012 

EXP30013 

EXP30014 

EXP30015 

EXP30016 

EXP30017 

EXP30018 

EXP30019 

EXP30O20 

EXP30021 

EXP30022 

EXP30023 

EXP30024 

EXP30025 

EXP30026 

EXP30027 

EXP30028 

EXP30029 

EXP30030 

EXP30031 

EXP30032 

EXP30033 

EXP 300 34 

EXP30035 

EXP30036 

EXP30037 

EXP30038 

EXP30039 

EXP30040 

EXP30041 

EXP30042 



3D L 



00046 


-0 


60000 





77777 


STQ 


00047 





50000 





00105 


CLA 


00050 





30000 





77777 


FAD 


00051 





60100 





77777 


STO 


00052 





56000 





77777 


LDQ 


00053 





26000 





77776 


FMP 


00054 





30000 





00106 


FAD 


00055 





60100 





77776 


STO 


00056 





30200 





77775 


FSB 


00057 





60100 





77777 


STO 


00060 





50000 





77776 


CLA 


00061 





30000 





77775 


FAD 


00062 





40000 





77774 


ADD 


00063 





60100 





77776 


STO 


00064 





56000 





77773 


LDQ 


00065 





16200 





00071 


TOP 


0O066 





50000 





77777 


CLA 


00067 





56000 





77776 


LDQ 


00070 


-0 


60000 





77777 


STQ 


00071 





24000 





77777 


FDH 


00072 


-0 


60000 





77773 


STQ 


00073 





50000 





77773 


CLA 


00074 





02000 


4 


00001 


TRA 


00075 





56000 





77773 


LDQ 


00076 





04000 


4 


00001 


TLQ 


00077 





76000 





00006 


COM 


00100 





02000 


4 


00001 


TRA 


00101 


+207535146314 


DEC 


00102 


+261344137676 


OCT 


00103 


+206520000000 


DEC 


00104 


+203471463146 


DEC 


00105 


+174631463146 


DEC 


00106 


+202400000000 


DEC 


00107 


+200000000000 


OCT 


00110 


+000000000000 


OCT 


00111 





10000 


4 


00001 


LAS820 T2E 


00112 





76000 





00003 


SSP 


00113 





76500 





00033 


LRS 


00114 


-0 


60000 





77773 


STQ 


00115 





76700 





00023 


ALS 


00116 


-0 


50100 





00147 


ORA 


00117 





30200 





00150 


FSB 


00120 





60100 





77774 


STO 


00121 





50000 





77773 


CLA 


00122 





76500 





00010 


LRS 


00123 


-0 


50100 





00151 


ORA 


00124 





30000 





00152 


FAD 


00125 





60100 





77773 


STO 


00126 





30200 





00153 


FSB 


00127 





24000 





77773 


FDH 


00130 


-0 


60000 





77773 


STQ 


00131 





26000 





77773 


FMP 


00132 





60100 





77775 


STO 



COMMON+00004#0*00000 

S816EX+0G059»Q*O0000 

C0MMON+00004 »0 #00000 

C0MM0N+00004 »0 »00000 

COMMON+00004 *0 tOOOOO 

COMMON+0QOO3»0*OO000 

S8 16EX+00060»0»00000 

COMMON+O0O03»0*QG0Q0 

COMMON+00002 *0»00000 

COMMON+00004 »0»00000 

COMMON+OOOO 3 ♦ ♦ 00000 

COMMON+00002 »0»00000 

COMMON+OOOO 1*0*00000 

COMMON+00003*0»Q0000 

COMMON+OOOOO *0»Q0000 

S8 1 6EX+00047 »0*00000 

COMMON+00004»0*00000 

COMMON+00003 *0*00000 

COMMON+00004 »0»00000 

COMMON+00004 »0»00000 

COMMON+OOOOO *G»00000 

COMMON+OOOOO »0*00000 

00001*4*00000 

COMMON+OOOOO *0*00000 

00001*4*00000 

00000*0*00000 

00001*4*00000 

8.73000000000E01 

261344137676 

4«20OOO0OOO00E01 

4*900O0000O00E00 

5 • OOOOOOOOOOOE-O 2 

2#00000000000E00 

200000000000 

000000000000 

LA S820 NATURAL LOGARITHM SUBROUTINE 

00001*4*00000 

00027*0*00000 
COMMON+OOOOO *0*00000 
00019*0*00000 
LAS820+00030*0*0OOO0 
LAS820+0003 1 »0*00000 
COMMON+OOOO 1 »0»00000 
COMMON+00000»0»00000 
00008*0*00000 
LAS82O+0O032»O»OOO00 
LAS820+O0033»0*00000 
COMMON+00000*0»00000 
LAS820+00034 »0»00000 
COMMON+OOOOO *Q » 00000 
COMMON+00000*0»00000 
COMMON+OOOOO *0*00000 
COMMON+00002 »0»00000 



EXP3GQ43 

EXP30044 

EXP30045 

EXP30046 

EXP30047 

EXP30048 

EXP30049 

EXP3OO50 

EXP30051 

EXP30052 

EXP30053 

EXP30054 

EXP30055 

EXP30056 

EXP30057 

EXP30058 

EXP30059 

EXP30060 

EXP30061 

EXP30062 

EXP30063 

EXP30064 

EXP30065 

EXP30066 

EXP 300 6 7 

EXP30068 

EXP 300 69 

EXP30070 

EXP30071 

EXP30072 

EXP30073 

EXP30074 

EXP30075 

EXP30076 

EXP30077 

EXP30078 

EXP30079 

EXP3OO80 

EXP30081 

EXP30082 

EXP30083 

EXP30084 

EXP30085 

EXP30086 

EXP30087 

EXP30088 

EXP30089 

EXP30090 

EXP30091 

EXP30092 

EXP30093 

EXP30094 

EXP30095 

EXP30096 



u 



u 



00133 


56000 


00156 




LOO 


00134 


26000 


77775 




FMP 


00135 


30000 


00155 




FAD 


00136 


76500 


00043 




LRS 


00137 


26000 


77775 




FMP 


00140 


30000 


00154 




FAD 


00141 


76500 


00043 




LRS 


00142 


26000 


77773 




FMP 


00143 


30000 


77774 




FAO 


00144 


76500 


00043 




LRS 


00145 


26000 


00157 




FMP 


00146 


02000 4 


00001 




TRA 


00147 


+210000000000 




OCT 


00150 


+210401000000 




DEC 


00151 


+200000000000 




OCT 


00152 


+200552023631 




DEC 


00153 


+201552023631 




DEC 


00154 


+202561251001 




DEC 


0*0155 


+200754213603 




DEC 


00156 


+200462532521 




DEC 


001*7 


+200542710277 




DEC 






77773 


COMMON 


SYN 




% 


77772 


EXP1 


SYN 






77771 


BASE 


SYN 






77770 


TXL 


SYN 






00111 


LOG 


SYN 






00012 


EXP 


SYN 






ooooo 




END 



LAS820+00037»0*0OO00 

C0MMON+000O2 »0 »00000 

LAS820+00036 »0*00000 

00035*0*00000 

COMMON+00002 *0*00000 

LAS820+00O35»0*00O00 

0a035»O»0O0OO 

COMMON+00000*0»00000 

COMMON+0000 1 »0*00000 

00035*0*00000 

LAS820+O0O38 »0»00000 

00001*4*00000 

210000000000 

1.28500000000E02 

200000000000 

7.07106781187E-01 

1.41421356237E00 

2»88539129030EO0 

9.61470632300E-01 

5.98978649600E-01 

6.93147180560E-01 

-5 

-6 

-7 

-8 

LAS820 

S816EX 



EXP30O97 
EXP30098 
EXP30099 
EXP30100 
EXP30101 
EXP30102 
EXP30103 
EXP3Q104 
EXP 30105 
EXP30106 
EXP301O7 
EXP301O8 
EXP30109 
EXP3OU0 
EXP30111 
EXP30112 
EXP30113 
EXP30114 
EXP30115 
EXP30116 
EXP30117 
EXP30118 
EXP30U9 
EXP30120 
EXP30121 
EXP30122 
EXP30123 
EXP30124 



Ut 



~,u 



13D L 



00000 
00001 
00002 
00003 



00000 
00001 
00002 
00003 
00004 
00005 
00006 
00007 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 
00020 
00021 
0O022 
00023 
00024 
00025 
00026 
00027 
00030 
00031 
00032 
00033 
00034 
00035 
00036 
00037 
00040 
00041 
00042 
00043 
00044 
00045 
00046 



ABS 

00000 
00000 00052 
00000 77775 
434627606060 
00000 00000 



10000 
76000 
76500 
-0 60000 
76700 
-0 50100 
30200 
60100 
50000 



00000 

00001 
00003 
00033 
77775 
00023 
00036 
00037 
77776 
77775 







76500 00010 
-0 50100 00040 
30000 00041 
60100 77775 
30200 00042 
24000 77775 
-0 60000 77775 
26000 77775 
60100 77777 
56000 00045 
26000 77777 
30000 00044 
76500 00043 
26000 77777 
30000 00043 
76500 00043 
26000 77775 
30000 77776 
76500 00043 
26000 00046 
02000 4 00001 
+210000000000 
+210401000000 
+200000000000 
+200552023631 
+201552023631 
+202561251001 
+200754213603 
+200462 532521 
+200542710277 

77775 
00000 



ORG 

PZE 
BCD 

PZE 

ORG 

LAS820 TZE 
SSP 
LRS 
STQ 
ALS 
OR A 
FSB 
STO 
CLA 
LRS 
ORA 
FAD 
STO 
FSB 
FDH 
STQ 
FMP 
STO 
LDQ 
FMP 
FAD 
LRS 
FMP 
FAD 
LRS 
FMP 
FAD 
LRS 
FMP 
TRA 
OCT 
DEC 
OCT 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 

COMMON SYN 
END 



CONTROL CARD FOR LOG. 



42 

COMMON 

1L0G 

END OF LOG CONTROL CARD 

LAS820 NATURAL LOGARITHM SUBROUTINE 
00001#4#00000 

00027»0»00000 
COMMON+00000#Q#00000 
00019*0*00000 
LAS820+00030 #0*00000 
LAS820+00031 »0»00000 
COMMON+OOOO 1*0*00000 
COMMON+00000*0*00000 
00008*0*00000 
LAS820+00032»0*00000 
LAS820+00033*0»00000 
COMMON+OOOOO #0 #00000 
LAS820+00034 »0*00000 
COMMON+00000*0 #00000 
COMMON+OOOOO #0*00000 
COMMON+00000 #0*00000 
COMMON+00002 *0#00000 
LAS820+00037 #0*00000 
COMMON+00002 #0 #00000 
LAS820+00036*0 #00000 
0O035»O#000O0 
COMMON+00002 »0#00000 
LAS820+00035 »0»00000 
00035*0*00000 
COMMON+OOOOO #0*00000 
COMMON+00001 »0»00000 
00035 »0»00000 
LAS820+00038 #0*00000 
00001*4*00000 
210000000000 
1.28500000000E02 
200000000000 
7.07106781187E-01 
1.41421356237E00 
2.88539129030E00 
9.61470632300E-01 
5.98978649600E-01 
6#93147180560E-01 
-3 



L0G/C01 
LOG/C02 
LOG /CO 3 
LOG/CO 4 
LOG/C05 
LOG/C06 
LOG/C07 
LOG 0002 
LOG 0003 
LOG 0004 
LOG 0005 
LOG 0006 
LOG 0007 
LOG 0008 
LOG 0009 
LOG 0010 
LOG 0011 
LOG 0012 
LOG 0013 
LOG 0014 
LOG 0015 
LOG 0016 
LOG 0017 
LOG 0018 
LOG 0019 
LOG 0020 
LOG 0021 
LOG 0022 
LOG 0023 
LOG 0024 
LOG 0025 
LOG 0026 
LOG 0027 
LOG 0028 
LOG 0029 
LOG 0030 
LOG 0031 
LOG 0032 
LOG 0033 
LOG 0034 
LOG 0035 
LOG 0036 
LOG 0037 
LOG 0038 
LOG 0039 
LOG 0040 
LOG 0041 
LOG 0042 
LOG 0043 
LOG 0044 



u 



u 



ooooo 

00001 
00002 
00003 
00004 
00003 
00006 
00007 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 
00020 
00021 
00022 
00023 
00024 
00025 

00026 

00027 

00030 

00031 

00032 

00033 

00034 

00035 

00036 

00037 

00040 

00041 

00042 

00043 

00044 

00045 

00046 

00047 

00050 

00051 

00052 

00053 

00054 

00055 

00056 



REL 



30200 

76000 

60100 

76500 

-0 63400 

-0 73400 

-0 14000 

-0 63400 

3 00244 

76300 

•3 00202 

76500 

22000 

-0 77300 

16200 

76000 

60100 

-3 00000 

02000 

40200 

60200 

1 00002 



00000 



00153 

00002 

77774 

00011 

00021 

OOOOO 

00134 

00120 

00022 

00023 

00026 

00250 

00136 

00043 

00041 

00002 

77774 

00041 

00117 

00137 

77775 

00057 



F2SIN001 



ORG 



COS 

SIN 



FORTRAN LIBRARY VERSION OF IB SIN 1 

COMPUTES SINE OR COSINE OF A SINGLE PRECISION NORMALIZED 
FLOATING POINT ARGUMENT. TSX SIN OR TSX COS • REL. ERROR 
LESS THAN 1/2 X 10 TO -8. TIMING ABOUT 2.03 SIN* 2.11 COS* 
FSB FPHLF 



CHS 

STO SPMLT 

LRS 9 

SXD SAVEtl 

PDX 0*1 
OVTST TNO NOVFL 

SXD INDIC»4 

TXH ERR* It 164 

LLS 19 

TXL SPEC*1»130 
LRTSH LRS 168ffl 

DVH PI 

ROL 35 

TOP FRLAR 

CHS 

STO SPMLT 
SAVE TXL FRLAR»0»** 

ERR TRA FINI-1 
EQUA SUB PIHLF 

SLW REDA 

TXI C0MCA*1.2 



OVERFLOW TEST 

OVERFLOW TO BE RESTORED 



B3 

PI»«.B3* 8Q*»*35 

LAST BIT TO SIGN MQ 



-3 00162 
-0 76000 
02000 
00201 
76500 
76000 
56000 
04000 





3 







O 

60100 
-0 53400 1 

02000 

76000 
-0 53400 

34000 
40200 
76000 
56000 
04000 
60100 
76500 
40000 
30000 
56000 
76300 
60100 

















SX 

00130 SPEC TXL LQW*1»114 

00001 PBT 
00032 TRA SPEC+4 

00013 TXH LRTSH* If 129 

00205 LRS 133*1 

00003 SSP 

00142 LDQ TEST 

00042 TLO FRLAR-H 

77775 STO REDA 

00025 LXO SXtl 

00057 TRA COMCA 
00003 FRLAR SSP 

00025 LXD SX*1 

00137 CAS PIHLF 

00136 SUB PI 

00003 SSP 
00142 LDQ TEST 
00023 TLQ EQUA 
77775 STO REDA 

00004 FLOAT LRS 4 
00140. ADD CHAR 
00141 FAD CHAR+1 
77774 LDQ SPMLT 
OOOOO LLS 
77774 STO SPMLT 



COSC* XR...4 

SPECIAL CASE* ANGLE NEED NOT BE REDUCED 



B3 



LARGER THAN PIHLF 
EQUAL TO PIHLF 



ANGLE IN FIRSF QUADRANT* B3 



200 



F2SIN002 

F2SIN003 

F2S IN004 

F2SIN005 

F2SIN006 

F2SIN007 

F2SIN006 

F2SIN009 

F2SIN010 

F2SIN011 

F2SIN012 

F2SIN013 

F2SIN014 

F2SIN015 

F2SIN016 

F2SIN017 

F2SIN018 

F2SIN019 

F2SIN020 

F2SIN021 

F2SIN022 

F2SIN023 

F2S1N024 

F2SIN025 

F2SIN026 

F2SIN027 

F2SIN028 

F2S1N029 

F2SIN030 

F2SIN031 

F2SIN032 

F2SIN033 

F2SIN034 

F2SIN035 

F2SIN036 

F2SIN037 

F2SIN038 

F2SIN039 

F2SIN040 

F2SIN041 

F2SIN042 

F2SIN043 

F2SIN044 

F2SIN045 

F2SIN046 

F2SIN047 

F2SIN048 

F2SIN049 

F2SIN050 

F2SIN051 

F2SIN052 

F2SIN053 

F2SIN054 



W 



00057 


56000 77775 


COMCA LDQ 2 


00060 


-0 20000 77775 


MPR 2 


0006 1 


60100 77777 


STO ZSQ 


00062 


40000 1 00147 


ADO C0NST+4#1 


00063 


60100 77776 


STO SOR 


00064 


50000 1 00150 


CLA C0NST+5tl 


00065 


22000 77776 


DVH SOR 


00066 


-0 60000 77776 


STQ SOR 


00067 


50000 77776 


CLA SOR 


00070 


40000 1 00153 


ADO C0NST+8*1 


00071 


76700 00001 


ALS 1 


00072 


40000 77777 


ADD ZSQ 


00073 


77100 1 00006 


ARS 6»1 


00074 


-3 00002 1 00123 


TXL S»l*2 


00075 


60100 77776 


STO SOR 


00076 


50000 77777 


CLA ZSQ 


00077 


76500 00002 


LRS 2 


00100 


40000 77777 


ADD ZSQ 


00101 


76300 00001 


LLS 1 


00102 


40000 00150 


ADD C0NST+5 


00103 


22000 77776 


DVH SOR 


00104 


-0 60000 77776 


STQ SOR 


00105 


50000 77776 


CLA SOR 


00106 


40000 00152 


ADD CONST+7 


00107 


76500 00002 


LRS 2 


00110 


402O0 77777 


SUB ZSQ 


00111 


56000 77774 


LDQ SPMLT 


00112 


76300 00010 


LLS 8 


00113 


•0 76000 00001 


PBT 


00114 


1 00001 1 00115 


TXI RTSH>1»1 


00115 


77100 1 00015 


RTSH ARS 13»1 


00116 


361O0 1 00145 


ACL CHAR+5*1 


00117 


-0 53400 1 00021 


LXD SAVE»1 


00120 


3 4 00122 


FINI TXH FINI+2»4»»« 


00121 


02000 4 00001 


TRA 1»4 


00122 


14000 00121 


TOV FINI+1 


00123 


40000 00141 


S ADD CHAR+1 


00124 


60100 77777 


STO ZSQ 


00125 


56000 77777 


LDQ ZSQ 


00126 


26000 77774 


FMP SPMLT 


00127 


02000 00117 


TRA FINI-1 


00130 


50000 00120 


LOW CLA FINI 


00131 


76700 00011 


ALS 9 


00132 


50000 77774 


CLA SPMLT 


00133 


02000 00117 


TRA FINI-1 


00134 


-0 63400 00120 


NOVFL SXD INDICtO 


00135 


02000 00010 


TRA OVTST+2 



00120 

00136 +144417665210 

00137 +062207732503 
00140+177000000000 
00141 +200000000000 



INDIC SYN FINI 
PI DEC 3«14159265359B3 
PIHLF DEC 1.57079632679B3 
CHAR OCT 177000000000 
OCT 200000000000 



COMMON CALCULATION FOR SIN AND COS 
COMMON CALC«» B3 

B6 

24»1B6> 50* B6 

2287B13* 1042B11 



82.5B7» -19»B5 
B6f BITS IN PtQ 

B8 



-3276B13 



19.47785 



XR»*«5 FOR OCOS 
9 OR 8 
127 OR 128 



LEAVE ON 
TURN OFF 
128 



CLEAR DECREMENT OF INDIC 
CONSTANTS 



F2SIN055 
F2SIN056 
F2SIN057 
F2SIN058 
F2SIN059 
F2SIN060 
F2SIN061 
F2SIN062 
F2SIN063 
F2SIN064 
F2SIN065 
F2SIN066 
F2SIN067 
F2SIN068 
F2SIN069 
F2SIN070 
F2SIN071 
F2SIN072 
F2SIN073 
F2SIN074 
F2SIN075 
F2SIN076 
F2SIN077 
F2SIN078 
F2SIN079 
F2SIN080 
F2SIN081 
F2SIN082 
F2SIN083 
F2SIN084 
F2SIN085 
F2SIN086 
F2SIN087 
F2SIN088 
F2SIN089 
F2SINO90 
F2SIN091 
F2SIN092 
F2SIN093 
F2SIN094 
F2SIN095 
F2SIN096 
F2SIN097 
F2SIN97A 
F2SIN97B 
F2SIN098 
F2SIN099 
F2SIN100 
F2SIN101 
F2SIN102 
F2SIN103 
F2SIN104 
F2SIN105 
F2SIN106 



qW 



u 



(J 



00142 +011463146314 

00143 +140450575062 

00144 +107367056521 

00145 +310075742536 

00146 +202273236275 

00147 +245122165275 

00150 -146305340704 

00151 -236610717605 

00152 +233642316731 

00153 +201622077325 

77774 
77774 
77775 
77775 
77776 
77777 
00000 
00001 



TEST 
CONST 



DEC 
DEC 



.383 

24* 1448946943B6»2287»443195687B13 »50«0302454854B6 



DEC 1042.9267081438B11»82.58030199563B7»-3276«33995164B13 



DEC -19.8459242632B5.19.477149451B5 



1.57079632679 



FPHLF DEC 

COMMON EOU 

SPMLT EOU COMMON 

REDA EOU COMMON+l 

Z EOU COMMON+l 

SOR EOU C0MM0N+2 

ZSQ EOU COMMON+3 

END 



F2SIN107 
F2SIN108 



F2SIN109 



F2SIN110 

F2SIN111 
F2SIN112 
F2SIN113 
F2SIN114 
F2SIN115 
F2SIN116 
F2SIN117 
F2SIN118 



^11 



O L 



REL 



F2EXP001 



00000 
00001 
00002 
00003 
00004 
00003 
00006 
00007 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 
00020 
00021 
00022 
00023 
00024 
00023 
00026 
00027 
00030 
00031 
00032 
00033 
00034 
00035 
00036 
00037 
00040 
00041 
00042 
00043 
00044 
00045 

00046 
00047 
00O50 
00051 
00052 
00053 
00054 
00055 
60056 



60100 
56000 
04000 
76000 
04000 
76500 
76000 
40000 
62100 
20000 
76500 
76700 
60100 
76500 
60000 
20000 
60100 
40000 
60100 
50000 
22100 
60000 
56000 
20000 
76300 
40200 
40000 
40200 
60100 
50000 
22100 
60000 
50000 
76500 
50100 
30000 
40000 
02000 



00000 

77777 
00046 
00001 
00002 
00044 
00033 
00003 
00050 
00012 
00047 
00000 
00033 
77777 
00004 
77776 
77776 
77775 
00053 
77774 
00054 
77774 
77774 
77775 
00055 
00004 
77774 
00056 
77776 
77774 
77776 
77774 
77774 
77774 
Q0010 
00052 
00051 
77777 
00001 



ORG 



+207540071260 
-270524354513 
♦000000000242 
+201400000000 
+201000000000 
+127325604305 
+046477071523 
+010676467774 
+237214030720 



EXP STO 
LDQ 
TLQ 
CHS 
TLQ 
LRS 
SSM 
ADD 
STA 
MPY 

SHI LRS 
ALS 
STO 
LRS 
STQ 
MPY 
STO 
ADD 
STO 
CLA 
DVP 
STQ 
LDQ 
MPY 
LLS 
SUB 
ADD 
SUB 
STO 
CLA 
DVP 
STQ 
CLA 
LRS 
ORA 
FAD 

Tl ADD 
TRA 



MAX DEC 

LOGE DEC 

CHAR OCT 

CH OCT 

CHI OCT 

A DEC 

B DEC 

C DEC 

D DEC 



FL0ATIN6 POINT EXPONENTIAL SUBROUTINE* FORTRAN VERSION 

M STORE ARGUMENT 

MAX TEST IF OUT OF RANGE 

1,4 IF TOO LARGE ERROR RETURN 



77777 
77776 



EQU 
EQU 



Tl 
27 

CHAR 

SHI 

LOGE 

27 

M 

4 

F 

F 

SQ 

A 

T 

B 

T 

T 

SQ 

C 

4 

T 

D 

F 

T 

F 

T 

T 

T 

8 

CHI 

CH 

M 

1*4 

88*028 

-1.4426950409B1 

242 

201400000000 

201000000000 

87*41749720288 

617*9722695812 

.0346573590380 

9*9545957821B4 

-1 
-2 



IF TOO SMALL RETURN WITH ZERO 

CONVERT TO FIXED POINT 

X TIMES LOG E BASE 2 
SEPARATE INTEGER AND FRACTION 



COMPUTE FRACTION SQUARED 

COMPUTE CONTINUED FRACTION 

8*27 SCALING 

8*27 

12*23 

8*27 4*31 

4*31 

8*27 

0*35 8*27 

4t31 

4*31 

4*31 

4*31 

4*31 

5*31 NUMERATOR EQUALS 2F 

4*31 1*34 



RETURN 
CONSTANTS 



ERASABLES 



F2EXP002 

F2EXP003 

F2EXP004 

F2EXP005 

F2EXP006 

F2EXP007 

F2EAP0O8 

F2EXP009 

F2EXP010 

F2EXP011 

F2EXP012 

F2EXP013 

F2EXP014 

F2EXP015 

F2EXP016 

F2EXP017 

F2EXP018 

F2EXP019 

F2EXP020 

F2EXP021 

F2EXP022 

F2EXP023 

F2EXP024 

F2EXP025 

F2EXP026 

F2EXP027 

F2EXP028 

F2EXP029 

F2EXP030 

F2EXP031 

F2EXP032 

F2EXP033 

F2EXP034 

F2EXP035 

F2EXP036 

F2EXP037 



F2EXP039 
F2EXP040 
F2EXP041 
F2EXP042 
F2EXP0^3 
F2EXP044 
F2EXP045 

F2EXP046 
F2EXP047 
F2EXP048 
F2EXP049 
F2EXP050 
F2EXP051 
F2EXP052 



<W 



U 



u 



77775 


SQ 


EQU -3 


77774 


T 


EQU -4 


00000 




END 



F2EXP053 
F2EXP054 
F2EXP055 



c,? 



r 



00000 
00001 
00002 
00003 



ABS 



00000 
00000 



00000 

00025 
77776 



625051636060 

00000 00000 

00000 



ORG 
PZE 
PZE 
BCD 

PZE 

ORG 



CONTROL CARD FOR SQRT. 



C+3 

COMMON 

1SQRT 

END OF SQRT CONTROL CARD. 



CL SQR3 SQUARE ROOT SUBROUTINE 

FUNCTION NAME ••• SQRTF 



00000 





10000 


4 


00001 


SQRT 


TZE 


lt4 


SQRT OF ZERO IS ZERO 


00001 





76000 





00003 




SSP 




SET SIGN X PLUS 


00002 





60100 





77776 


P2 


STO 


COMMON 


X 


00003 


-0 


50100 





00022 




ORA 


C 


MAKE POWER ODD 


00004 





77100 





00001 




ARS 


1 




00005 





40000 





00023 




ADD 


C+l 


NORMALIZED YO IN A«C 


00006 


-0 


63400 


4 


00024 




SXD 


C+2»4 




00007 





53400 


4 


00024 




LXA 


C+2»4 


4 TO INDEX 


00010 





60100 





77777 


PI 


STO 


COMMON+1 


S TO RE YO 


00011 





50000 





77776 




CLA 


COMMON 


1X1 TO A«C« 


00012 





24000 





77777 




FDH 


COMMON+1 


1C1/Y0 TO A»C. 


00013 





50000 





77777 




CLA 


COMMON+1 


YO TO A*C# 


00014 


-0 


60000 





77777 




STQ 


COMMON+1 


Ql TO COMMON+1 


00015 





30000 





77777 




FAD 


COMMON+1 


Y0+Q1 TO A»C« 


00016 





40200 





00022 




SUB 


C 


fYO+QD/2 TO A«C« 


00017 


2 


00001 


4 


00010 




TIX 


Pi»4»l 


REDUCE INDEX BY 1 


00020 


-0 


53400 


4 


00024 




LXD 


C+2»4 




00021 





02000 


4 


00001 




TRA 


1*4 




00022 


+001000000000 


C 


OCT 


1 000000000 i 


lOOOOOOOOOOOf* 


00023 


♦100000000000 










00024 


♦000000000004 


















77776 


COMMON 


SYN 


-2 












00000 




END 




" 



SORT/CO 1 
SQRT/C02 
SQRT/C03 
SQRT/C04 
SQRT/C05 
SQRT/ CO 6 
SORT/C07 
SQRT0001 
SQRT0002 
SQRT0003 
SQRT0004 
SQRT0005 
SQRT0006 
SQRT0007 
SQRT 000 8 
SQRT0009 
SGRT0010 
SQRTOOll 
SQRT0012 
SQRT0013 
SQRT0014 
SQRT0015 
SQRT0016 
SQRT0017 
SQRT0Q18 
SQRT 00 19 
SQRT0020 
SQRT0021 
SQRTO022 



SQRT0023 
SQRT 00 24 



43- 



u 



» 



u 



1 

1 




REL 




ooooo 




ORG 




FLOATING POINT 




ooooo 


-0 63400 


1 


00121 


ATAN 


SXD 


11*1 




t ooooi 


-0 12000 





00063 




TMI 


T100 




00002 


60100 





77777 


T30 


STO 


X 




00003 


40200 





00072 




SUB 


MAX 




00004 


-0 12000 





00007 




TMI 


T21 




00005 


50000 





00120 




CLA 


P10V2 




00006 


02000 


4 


00001 




TRA 


1*4 




00007 


40000 





00071 


T21 


AOO 


MIN 




00010 


12000 





00013 




TPL 


T22 




000 11 


50000 





77777 




CLA 


X 




00012 


02000 


4 


00001 




TRA 


1*4 




00013 


53400 


1 


00121 


T22 


LXA 


Ufl 




00014 


50000 





77777 


T17 


CLA 


X 




00015 


40200 


1 


00076 




SUB 


A»l 




00016 


-0 12000 





00020 




TMI 


Tl 




00017 


1 00001 


1 


00014 




TXI 


T17»l*l 




00020 


3 00000 


1 


00024 


Tl 


TXH 


T2*l»0 




00021 


56000 





77777 




LDQ 


X 




00022 


26000 





00117 




FMP 


L 




00023 


02000 





00037 




TRA 


Til 




00024 


-0 75400 


1 


OOOOO 


T2 


PXD 


0*1 




00025 


40200 





00123 




SUB 


CHAR 




00026 


-0 73400 


1 


OOOOO 




POX 


0.1 




00027 


50000 





77777 


T3 


CLA 


X 




00030 


30000 


1 


00072 




FAD 


MAXfl 




00031 


60100 





77776 




STO 


T 




00032 


50200 


1 


00102 




CLS 


B#l 




00033 


24100 





77776 




FOP 


T 




00034 


-0 60000 





77776 




STQ 


T 




00035 


50000 





77776 




CLA 


T 




00036 


30000 


1 


00076 




FAD 


Afl 




00037 


60100 





77777 


Til 


STO 


X 




00040 


56000 





77777 




LDQ 


X 




00041 


26000 





77777 




FMP 


X 




00042 


60100 





77775 




STO 


SQ 




00043 


30000 





00114 




FAD 


CI 




00044 


60100 





77776 




STO 


T 




00045 


50200 





00115 




CLS 


C2 




00046 


24100 





77776 




FOP 


T 




00047 


-0 60000 





77776 




STQ 


T 




00050 


50000 





77776 




CLA 


T 




00051 


30000 





00116 




FAD 


C3 




00052 


30000 





77775 




FAD 


SQ 




00053 


60100 





77776 




STO 


T 




00054 


50000 





77777 




CLA 


X 




00055 


24100 





77776 




FDP 


T 




00056 


-0 60000 





77776 




STQ 


T 




00057 


50000 





77776 




CLA 


T 




00060 


30000 


1 


00107 




FAD 


N»l 




00061 


-0 53400 


1 


00121 




LXD 


11*1 




00062 


02000 


4 


00001 




TRA 


1*4 



F2ATN001 

ARCTANGENT SUBROUTINE* FORTRAN VERSION 
SAVE INDEX REGISTER ONE 
SET ARGUMENT POSITIVE 
STORE ARGUMENT 
TEST IF OUT OF RANGE 

IF TOO LARGE* RETURN WIJH PI/2 



IF TOO SMALL* RETURN WITH ARGUMENT 
TEST FOR INTERVAL CONTAINING X 

IF IN INTERVAL ONE LET Z=9X/55 

TAKE NEGATIVE OF INDEX REGISTER ONE 
COMPUTE Z*A-B/C+X FOR PROPER INTERVAL 



COMPUTE 2 SQUARED 

COMPUTE CONTINUED FRACTION 



ADD INTERVAL CONSTANT 
RETURN 



F2ATN002 
F2ATN003 
F2ATN004 
F2ATN005 
F2ATN006 
F2ATN007 
F2ATN008 
F2ATN009 
F2ATN010 
F2ATN011 
F2ATN012 
F2ATN013 
F2ATN014 
F2ATN015 
F2ATN016 
F2ATN017 
F2ATN018 
F2ATN019 
F2ATN020 
F2ATN021 
F2ATN022 
F2ATN023 
F2ATN024 
F2ATN025 
F2ATN026 
F2ATN027 
F2ATN028 
F2ATN029 
F2ATN030 
F2ATN031 
F2ATN032 
F2ATN033 
F2ATN034 
F2ATN035 
F2ATN036 
F2ATN037 
F2ATN038 
F2ATN039 
F2ATN040 
F2ATN041 
F2ATN042 
F2ATN043 
F2ATN044 
F2ATN045 
F2ATN046 
F2ATN047 
F2ATN048 
F2ATN049 
F2ATN050 
F2ATN051 
F2ATN052 
F2ATN053 
F2ATN054 



00063 
00064 
00065 
00066 
00067 
00070 

00071 
00072 
00073 
00074 
00075 
00076 
00077 
00100 
00101 
00102 
00103 
00104 
00105 
00106 
00107 
00110 
00111 
00112 
00113 
00114 
00115 
00116 
00117 
00120 
00121 
00122 
00123 



63400 
76000 
07400 
53400 
76000 
02000 



00122 
00003 
00002 
00122 
00003 
00001 



4-01^000000000 
4233000000000 
+202537532534 
+201461055415 
+200447464721 
+176551074172 
+177714301134 
+176617307170 
+175602761366 
+173730570600 
+201546070234 
+177625431617 
+176676654157 
+176531427747 
+000000000000 
+177545343022 
+200545343022 
+201414052216 
+201545343022 
+174642612432 
+170543147755 
+176673545053 
+176517101123 
+201622077325 
00000 00000 
00000 00000 
4200000000000 

77777 
77776 
77775 
00000 



T100 SXO I4»4 
SSP 

TSX T30#4 
LXD I4»4 
SSM 
TRA 1#4 



IF ARGUMENT NEGATIVEt SET RETURN NEGATIVE 
ARRANGE TO SET RETURN NEGATIVE 



MIN 
MAX 



CI 
Q2 
C3 

L 



OCT 
OCT 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 



PI0V2 DEC 

II 

14 

CHAR OCT 



X 
T 
SO 



070000000000 
233000000000 
2*7474774195 
.1917535926 
57735026919 
17632698071 
44958721409 
19501422424 
94475498595E-1 
288535059E-1 
•398867082 
39604526598 
21818181818 
1687240152 

3490658504 

6961317008 

•047197551 

•396263402 

051119459 

00270998425 

21664913599 

16363636363 

•57079633 



200000000000 



EOU -1 
EQU -2 
EOU -3 
END 



CONSTANTS 



ERASABLES 



F2ATN055 
F2ATN056 
F2ATN057 
F2ATN058 
F2ATN059 
F2ATN060 
F2ATN061 
F2ATN062 
F2ATN063 
F2ATN064 
F2ATN065 
F2ATN066 
F2ATN067 
F2ATN068 
F2ATN069 
F2ATN070 
F2ATN071 
F2ATN072 
F2ATN073 
F2ATN074 
F2ATN075 
F2ATN076 
F2ATN077 
F2ATN078 
F2ATN079 
F2ATN080 
F2ATN081 
F2ATN082 
F2ATN083 
F2ATN084 
F2ATN085 
F2ATN086 
F2ATN087 
F2ATN088 
F2ATN089 
F2ATN090 
F2ATN091 
F2ATN092 
F2ATN093 



(/ 



u 



o 



I 
1 




Ktl 






00000 


ORG 

FLOATING 




00000 





60100 





77776 TANH STO F 




00001 





76000 





00003 


SSP 




00002 





40200 





00115 


SUB MIN 




00003 





12000 





00006 


TPL T5 




00004 





50000 





77776 


CLA F 




00005 





02000 


4 


00001 


TRA 1»4 




00006 





40200 





00114 T5 


SUB MAX 




00007 


-Q 


12000 





00012 


TM1 T6 




00010 


o. 


50000 





00120 


CLA CH 




00011 





02000 


4 


00001 


TRA 1*4 




0O012 





50000 





77776 T6 


CLA F 




00013 





76500 





00033 


LRS 27 * 




00014 


-0 


76000 





00003 


SSM 




00015 





40000 





00117 


ADD CHAR 




00016 





62100 





00020 


STA SHI 




00017 





20000 





00116 


MPY LOGE 


A 


00020 





76500 





00000 SHI LRS 




00021 





76700 





00033 


ALS 27 




00022 





60100 





77777 


STO M 




00023 





76300 





00002 


LLS 2 




00024 





10000 





00071 


TZE T2 




00025 





76500 





00006 


LRS 6 




00026 


-0 


60000 





77776 


STQ F 




00027 





20000 





77776 


MPY F . 




00030 





60100 





77775 


STO SQ 




00031 





40000 





00121 


ADD A 




00032 





60100 





77774 


STO T 




00033 





50000 





00122 


CLA B 




00034 





22100 





77774 


DVP T 




00035 


-0 


60000 





77774 


STQ T 




00036 





56000 





77775 


LDQ SQ 




00037 





20000 





00123 


MPY C 




00040 





76300 





00004 


LLS 4 




00041 





40200 





77774 


SUB T 




00042 





40000 





00124 


ADD. D 




00043 





40200 





77776 


SUB F 




00044 





60100 





77774 


STO T 




00045 





50000 





77776 


CLA F 




00046 





22100 





77774 


DVP T 




00047 


-0 


60000 





77774 


STQ T 




00050 





50000 





77774 


CLA T 




00051 





76500 





00010 


LRS 8 




00052 





40O00 





00120 


ADD CH 




00053 





40000 





77777 Tl 


ADD M 




00054 





60100 





77777 


STO M 




0O055 





50000 





00120 


CLA CH 




00056 





24100 





77777 


FDP M 




00057 


-0 


60000 





77776 


STQ F 




00060 





50000 





77777 


CLA M 




00061 





30000 





77776 


FAD F 




00062 





60100 





77774 


STO T 



F2TNH001 
POINT HYPERBOLIC TANGENT SUBROUTINE* FORTRAN VERS 



TEST IF ARGUMENT LESS THAN ,00034 
IF SO LET TANH X EQUAL X 
TEST IF ARGUMENT LARGER THAN 12 



IF SO LET TANH X EQUAL ONE 



CONVERT TO FIXED POINT 

X TIMES LOG E BASE 2 
SEPARATE INTEGER AND FRACTION 



IF ARGUMENT LESS THAN .25 TRANSFER 
IF GREATER COMPUTE E TO THE X 

COMPUTE FRACTION SQUARED 

COMPUTE CONTINUED FRACTION 

8*27 SCALING 

8*27 

12*23 

8*27 4*31 

4*31 

8*27 

00*35 8*27 

4*31 

4*31 

4*31 

4*31 

4*31 

5*31 NUMERATOR EQUALS 2F 



ADD ONE AND CONVERT TO FLOATING POINT 
COMPUTE TANH X FROM E TO THE X 



F2TNH002 
IONF2TNH003 
F2TNH004 
F2TNH005 
F2TNH006 
F2TNH007 
F2TNH008 
F2TNH009 
F2TNH010 
F2TNH011 
F2TNH012 
F2TNH013 
F2TNH014 
F2TNH015 
F2TNH016 
F2TNH017 
F2TNH018 
F2TNH019 
F2TNH020 
F2TNH021 
F2TNH022 
F2TNH023 
F2TNH024 
F2TNH025 
F2TNH026 
F2TNH027 
F2TNH028 
F2TNH029 
F2TNH030 
F2TNH031 
F2TNH032 
F2TNH033 
F2TNH034 
F2TNH035 
F2TNH036 
F2TNH037 
F2TNH038 
F2TNH039 
F2TNH040 
F2TNH041 
F2TNH042 
F2TNH043 
F2TNH044 
F2TNH045 
F2TNH046 
F2TNH047 
F2TNH048 
F2TNH049 
F2TNH050 
F2TNH051 
F2TNH052 
F2TNH053 
F2TNH054 



c. 



3 1/OL 



00063 





50000 





77777 




CLA 


M 


00064 





30200 





77776 




FSB 


F 


00065 





24100 





77774 


T10 


FOP 


T 


00066 


-0 


60000 





77774 




STQ 


T 


00067 





50000 





77774 




CLA 


T 


00070 





02000 


4 


00001 




TRA 


1*4 


00071 





56000 





77776 


T2 


LDQ 


F 


00072 





26000 





00130 




FMP 


4L0GE 


00073 





60100 





77776 




STO 


F 


00074 





56000 





777 76 




LDQ 


F 


00075 





26000 





77776 




FMP 


F 


00076 





60100 





77775 




STO 


SQ 


00077 





30000 





00127 




FAD 


Dl 


00100 





60100 





77774 




STO 


T 


00101 





50000 





00126 




CLA 


CI 


00102 





24100 





77774 




FDP 


T 


0O103 


-0 


60000 





77774 




STQ 


T 


00104 





50000 





77774 




CLA 


T 


00105 





30000 





00125 




FAD 


Bl 


00106 





76500 





00043 




LRS 


35 


00107 





26000 





77775 




FMP 


SQ 


00110 





30000 





00130 




FAD 


4L0GE 


00111 





60100 





77774 




STO 


T 


00112 





50000 





77776 




CLA 


F 


00113 





02000 





00065 




TRA 


T10 


00114 


+017000000000 


MAX 


OCT 


017000000000 


00115 


+165544410070 


MIN 


DEC 


•00034 


00116 


+270524354513 


LOGE 


DEC 


1*4426950409B1 


00117 


+000000000242 


CHAR 


OCT 


242 


00120 


+201400000000 


CH 


OCT 


201400000000 


00121 


+127325604305 


A 


DEC 


87*417497202B8 


00122 


+046477071523 


B 


DEC 


617.9722695B12 


00123 


+010676467774 


C 


DEC 


•03465735903B0 


00124 


+237214030720 


D 


DEC 


9.9545957821B4 


00125 


+173433723377 


Bl 


DEC 


.01732867951 


00126 


+204704333566 


CI 


DEC 


14*1384114018 


00127 


+211535527021 


Dl 


DEC 


349*6699888 


00130 


+203561250731 


4L0GE 


DEC 


5*7707801636 










77777 


M 


EQU 


-1 










77776 


F 


EOU 


-2 










77775 


SO 


EQU 


-3 










77774 


T 


EQU 


-4 










00000 


„ 


END 






RETURN 

COMPUTE TANH 4L0GE IF X SMALL 

COMPUTE X TIMES 4L0GE 



COMPUTE CONTINUED FRACTION 



CONSTANTS 



ERASABLES 



F2TNH055 
F2TNH056 
F.2TNH057 
F2TNH058 
F2TNH059 
F2TNH060 
F2TNH061 
F2TNH062 
F2TNH063 
F2TNH064 
F2TNH065 
F2TNH066 
F2TNH067 
F2TNH068 
F2TNH069 
F2TNH070 
F2TNH071 
F2TNH072 
F2TNH073 
F2TNH074 
F2TNH075 
F2TNH076 
F2TNH077 
F2TNH078 
F2TNH079 
F2TNH080 
F2TNH081 
F2TNH082 
F2TNH083 
F2TNH084 
F2TNH085 
F2TNH086 
F2TNH087 
F2TNH088 
F2TNH089 
F2TNH090 
F2TNH091 
F2TNH092 
F2TNH093 
F2TNH094 
F2TNH095 
F2TNH096 
F2TNH097 
F2TNH098 
F2TNH099 



u 



u 



REM 



FNEDT2 











00040 




ORG 


32 


00040 





77200 





00201 




REW 


1 


00041 





77200 





00205 




REW 


5 


00042 


-0 


50000 





00162 




CAL 


IDEOF 


00043 





60200 





00163 




SLW 


THISCD 


00044 





07400 


4 


00166 


" 


TSX 


ONE2CS#4 


00045 


-0 


50000 





00163 


REENTR 


CAL 


THISCD 


00046 





76700 





00003 




ALS 


3 


00047 





60200 





00164 




SLW 


LA ST CD 


00050 





76200 





00321 




RCD 




00051 


-0 


53400 


1 


00161 




LXO 


ZER014.1 


00052 





70000 


1 


00010 


Al 


CPY 


CDBUF »1 


00053 


1 


77777 


1 


00052 




TXI 


Al»l»-1 


00054 





00000 





00054 


A2 


HTR 


A2 


00055 


-0 


50000 





00010 




CAL 


CDBUF 


00056 





76000 





00006 




COM 




00057 





62200 





00063 




STD 


A4 


00060 


-0 


50000 





00010 




CAL 


CDBUF 


00061 


-0 


53400 


1 


00161 




LXD 


2ER014»1 


00062 


1 


77777 


1 


00063 


A3 


TXI 


A4>1»-1 


00063 


-3 


00063 


1 


00066 


A4 


TXL 


A5»l»* 


00064 





36100 


1 


00011 




ACL 


CDBUF+1»1 


00065 





02000 





00062 




TRA 


A3 


00066 





76000 





00006 


A5 


COM 




00067 





36100 





00011 




ACL 


CDBUF+1 


00070 





76000 





00006 




COM 




00071 





10000 





00073 




TZE 


A6 


00072 





42000 





00000 




HPR 




00073 


-0 


50000 





00010 


A6 


CAL 


CDBUF 


00074 





77100 





00041 




ARS 


33 


00075 





62100 





00163 




STA 


THISCD 


00076 


-0 


50100 





00164 




ORA 


LASTCD 


00077 





60200 





00165 




SLW 


SITWD 


00100 





53400 


1 


00161 




LXA 


ZER014»1 


00101 


-o 


50000 


1 


00161 


A7 


CAL 


TABLE+14#1 


00102 





76500 





00022 




LRS 


18 


00103 





34000 





00165 




CAS 


SITWD 


00104 





02000 





00106 




TRA 


A8 


00105 





02000 





00110 




TRA 


A9 


00106 


2 


00001 


1 


00101 


A8 


TIX 


A7fltl 


0O107 





00000 





00107 


ILLEGL 


HTR 


ILLEGL 


00110 





76300 





00022 


A9 


LLS 


18 


00111 





62100 





00112 




STA 


A10 


00112 





02000 





00112 


A10 


TRA 


* 



REVISED FORTRAN EDITING PROGRAM EDT 0001 

FNEDT2 REVISED FORTRAN EDITING PROGRAM 



REWIND 

TAPES 
INITIALISE THIS CARD , 

TO END FILE 
TSX TO TRANSCRIBE SPECIAL FIRST RCD 
MAIN LOOP REENTRY 

MOVE THIS CARD 

INTO LAST CARD 
READ 

THE NEXT CARD 

INTO 

CARD BUFFER 
FALSE END OF FILE IN READING CARD 
TEST 



CHECK 



SUM 



CHECK SUM ERROR IN READING CARD 
SET UP 

THIS CARD 

AND 

SITUATION 

WORD 
TABLE SEARCH 

FOR 

SITUATION 

SEARCH FAILED* ILLEGAL SITUATION* 



00113 07400 4 00210 EOFEND TSX LB»4 

00114 07400 4 00214 EOFMR TSX SAVE*4 

00115 07400 4 00225 TSX CLEAR»4 

00116 07400 4 00233 TSX READt4 



THERE FOLLOW THE 8 POSSIBLE SITUATION SUBROUTINES 

SEQUENCE EOF-END 
SEQUENCE EOF-MR 



EDT 0001 
EDT 0002 
EDT 0003 
EDT 0004 
EDT 0005 
EDT 0006 
EDT 0007 
EDT 0008 
EDT 0009 
EDT 0010 
EDT 0011 
EDT 0012 
EDT 0013 
EDT 0014 
EDT 0015 
EDT 0016 
EDT 0017 
EDT 0018 
EDT 0019 
EDT 0020 
EDT 0021 
EDT 0022 
EDT 0023 
EDT 0024 
EDT 0025 
EDT 0026 
EDT 0027 
EDT 0028 
EDT 0029. 
EDT 0030 
EDT 0031 
EDT 0032 
EOT 0033 
EDT 0034 
EDT 0035 
EDT 0036 
EDT 0037 
EDT 0038 
EDT 0039 
EDT 0040 
EDT 0041 
EDT 0042 
EDT 0043 
EDT 0044 
EDT 0045 
EDT 0046 
EDT 0047 
EDT 0048 
EDT 0049 
EDT 0050 
EDT 0051 
EDT 0052 
EDT 0053 



$'// 



00117 





02000 





00045 




TRA 


REENTR 


00120 





07400 


4 


00214 


EOFNR 


TSX 


SAVE • 4 


00121 





07400 


4 


00225 




TSX 


CLEAR#4 


00122 





02000 





00045 




TRA 


REENTR 


00123 





07400 


4 


00302 


PRGEND 


TSX 


WRITE.4 


00124 





07400 


4 


00210 




TSX 


LB. 4 


00125 





07400 


4 


00302 


PRGEOF 


TSX 


WRITE. 4 


00126 





77000 





00221 




WEF 


145 


00127 





02000 





00045 




TRA 


REENTR 


00130 





07400 


4 


00330 


PRGPRG 


TSX 


MOVE .4 


00131 





02000 





00045 




TRA 


REENTR 


00132 





07400 


4 


00302 


PRGMR 


TSX 


WRITE. 4 


00133 





07400 


4 


00214 




TSX 


SAVE .4 


00134 





07400 


4 


00225 




TSX 


CLEAR .4 


00135 





07400 


4 


00233 




TSX 


READ.4 


00136 





02000 





00045 




TRA 


REENTR 


00137 





07400 


4 


00302 


PRGNR 


TSX 


WRITE. 4 


00140 





07400 


4 


00214 




TSX 


SAVE .4 


00141 





07400 


4 


00225 




TSX 


CLEAR.4 


00 142 





02000 





00045 




TRA 


REENTR 


00143 





00047 





00113 


TABLE 




E0FEND.0.39 


00144 





00041 





00114 






E0FMR.0.33 


00145 





00042 





00120 






E0FNR.0.34 


00146 





00007 





00123 






PRGEND .0.7 


00147 





00004 





00125 






PRGEOF .0. 4 


00150 





00000 





00130 






PRGPRG .0.0 


00151 





00001 





00132 






PRGMR .0.1 


00152 





00002 





00137 






PRGNR .0.2 


00153 





00017 





00123 






PRGEND .0.15 


00154 





00014 





00125 






PRGEOF .0.12 


00155 





00010 





00130 






PRGPRG.0.8 


00156 





00011 





00132 






PRGMR >0.9 


00157 





00012 





00137 






PRGNR .0.10 


00160 





00020 





00130 






PRGPRG.0.16 


00161 





00000 





00016 


ZER014 




14 


00162 





00000 





00004 


IDEQF 




4 


00163 





00000 





00000 


TH1SCD 






00164 





00000 





00000 


LASTCD 






00165 





ooooo 





00000 


SITWD 














00010 


COBUF 


SYN 


8 

THE 


00166 


-0 


76000 





00012 


0NE2CS 


RTT 




00167 





76100 





00000 




NOP 




00170 





76200 





00225 




RTB 


5 


00171 


-o 


53400 


1 


00161 




LXD 


2ER014.1 


00172 





53400 


2 


00207 




LXA 


ZER0TW.2 


00173 





76200 





00321 




RCO 




00174 





70000 


1 


00353 


CS1 


CPY 


MAINBF.l 


00175 


1 


77777 


1 


00174 




TXI 


CS1.1.-1 


00176 





00000 





00176 




HTR 


* 


00177 


2 


00001 


2 


00173 




TIX 


CS1-1.2.1 


00200 


-0 


53400 


1 


00161 




LXD 


ZER014.1 



SEQUENCE EOF-NR 



SEQUENCE PROG-END 

MR-END 
SEQUENCE PROG-EOF 

MR-EOF 

SEQUENCE PROG-PROG 

MR-PROG. NR-PROG 

SEQUENCE PROG-MR 
MR-MR 



SEQUENCE PROG-NR 
MR-NR 



TABLE OF SITUATIONS 



THERE FOLLOW THE 7 SUBROUTINES 

0NE2CS* LB* SAVE. CLEAR. READ. WRITE. MOVE 

TRANSCRIBES 
SPECIAL 
* 1ST RECORD 



EOT 0054 
EOT 0055 
EDT 0056 
EOT 0057 
EDT 0058 
EOT 0059 
EDT 0060 
EDT 0061 • 
EDT 0062 
EDT 0063 
EDT 0064 
EDT 0065 
EDT 0066 
EDT 0067 
EDT 0068 
EDT 0069 
EDT 0070 
EDT 0071 
EDT 0072 
EDT 0073 
EDT 0074 
EDT 0075 
EDT 0076 
EDT 0077 
EDT 0078 
EDT 0079 
EDT 0080 
EDT 0081 
EOT 0082 
EDT 0083 
EDT 0084 
EDT 0085 
EDT 0086 
EDT 0087 
EDT 0088 
EOT 0089 
EDT 0090 
EDT 0091 
EDT 0092 
EDT 0093 
EDT 0094 
EDT 0095 
EDT 0096 
EDT 0097 
EDT 0098 
EDT 0099 



<t '/* 



u 



u 



00201 





76600 00221 




WTB 


1 


00202 





70000 1 00353 


CS2 


CPY 


MAINBFtl 


OO203 


1 


77777 1 00204 




TXI 


CS3»1»-1 


00204 


3 


77745 1 00202 


CS3 


TXH 


CS2»l#-27 


00205 





76600 00333 




100 




00206 





02000 4 00001 




TRA 


1*4 


00207 


00000 00002 


2ER0TW 




2 
f 


00210 





76200 00321 


LB 


RCO 


00211 





70000 00000 




cpy 





00212 





70000 00001 




CPY 


1 


00213 





02000 00000 




TRA 





00214 


-0 


50000 00012 


SAVE 


CAL 


CDBUF+2 


00215 





60200 00222 




5LW 


EIGHTL 


00216 





62100 00224 




STA 


NEWBEG 


00217 


•0 


50000 00013 




CAL 


CDBUF+3 


00220 





60200 00223 




SLW 


EIGHTR 


00221 





02000 4 00001 




TRA 


1»4 


00222 





00000 00000 


EIGHTL 






00223 





00000 00000 


eightr 






00224 





ooooo 00000 


NEWBEG 






00225 


-0 


75400 00000 


CLEAR 


PXD 


0*0 


00226 





53400 1 00232 




LXA 


BUFSlZtl 


00227 





60200 1 00000 


CL1 


SLW 


0.1 


00230 


2 


00001 1 00227 




TIX 


CL1»1#1 


00231 





02000 4 00001 




TRA 


1*4 


00232 





00000 77425 


BUFS1Z 




-MAINBF 


00233 


-0 


76000 00012 


READ 


RTT 




00234 





76100 00000 




NOP 




00235 





76200 00225 




RTB 


5 


00236 


-0 


75400 00000 




PXD 


0*0 


00237 


-0 


53400 1 00161 




LXD 


ZER014»1 


00240 





70000 00277 




CPY 


CHKSUM 


00241 





02000 00243 




TRA 


R01 


00242 





02000 00233 




TRA 


READ 


00243 


-0 


70000 00300 


R01 


CAD 


FSTWD 


00244 


-0 


32000 00301 




ANA 


ADDMK 


00245 





40200 00224 




SUB 


NEWBEG 


00246 


-0 


12000 00267 




TMI 


R06 


00247 





76000 00006 




COM 




00250 





73400 1 00000 


R02 


PAX 


0*1 


00251 


-0 


50000 00300 




CAL 


FSTWD 


00252 


-3 


00352 1 00271 


RD3 


TXL 


R07»1»MAINBF-1 


00253 


-0 


70000 1 00352 




CAO 


MAINBF-1»1 


00254 


1 


77777 1 00252 


RD4 


TXI 


RD3#1«-1 


00255 





00000 00001 


LI 


HTR 


1 


00256 


-0 


77300 00377 


R05 


ROL 


255 


00257 


-0 


77300 00377 




ROL 


255 


00260 


-0 


76000 00012 




RTT 




00261 





02000 00275 




TRA 


RD8 


00262 





76000 00006 




COM 





PRESSES LOAD CARDS BUTTON 



SAVES CONTROL INFORMATION 
FROM MR OR, NR CARD 



CLEARS MAIN BUFFER 



READS RECORD 
FROM 

MASTER TAPE 
INTO MAIN BUFFER 



FALSE EOF IN READING MASTER TAPE 



EDT 0124 
EOT 0125 
EDT 0126 
EDT 0127 
EDT 0128 
EDT 0129 
EDT 0130 
EDT 0131 
EDT 0132 
EDT 0133 
EDT 0134 
EDT 0135 
EDT 0136 
EDT 0137 
EDT 0138 
EDT 0139 
EDT 0140 
EDT 0141 
EDT 0142 
EDT 0143 
EDT 0144 
EOT 0145 
EDT 0146 
EDT 0147 
EDT 0148 
EDT 0149 
EDT 0150 
EDT 0151 
EDT 0152 
EDT 0153 
EOT 0154 
EDT 0155 
EDT 0156 
EDT 0157 
EDT 0158 
EDT 0159 
EDT 0160 
EOT 0161 
EDT 0162 
EOT 0163 
EDT 0164 
EDT 0165 
EDT 0166 
EDT 0167 
EDT 0168 
EDT 0169 
EDT 0170 



00263 


36100 00277 




ACL 


CHKSUM 


00264 


76000 00006 




COM 




00265 


-0 10000 00275 




TNZ 


RD8 


00266 


02000 4 00001 




TRA 


1*4 


00267 


40000 00255 


RD6 


ADO 


LI 


00270 


02000 00250 




TRA 


RD2 


00271 


-0 70000 00000 


RD7 


CAD 





00272 


02000 00254 




TRA 


R04 


00273 


02000 00255 




TRA 


LI 


00274 


02000 00256 




TRA 


RD5 


00275 


76400 00205 


RD8 


BST 


5 


00276 


00000 00233 




HTR 


READ 


00277 


00000 00000 


CHKSUM 






00300 


00000 00000 


FSTWD 






00301 


00000 77777 


ADDMK 




-1 


00302 


500O0 00223 


WRITE 


CLA 


EIGHTR 


00303 


40200 00224 




SUB 


NEWBEG 


00304 


-0 12000 4 00001 




TMI 


1»4 


00305 


76700 00022 




ALS 


18 


00306 


76000 00006 




COM 




00307 


62200 00315 




STD 


WR2 


00310 


62200 00324 




STD 


WR4 


00311 


-0 53400 3 00161 




LXD 


ZER014»3 


00312 


-0 50000 00222 




CAL 


EIGHTL 


00313 


36100 1 00353 


WR1 


ACL 


MAINBFtl 


00314 


1 77777 1 00315 




TXI 


WR2>1>-1 


00315 


3 00315 1 00313 


WR2 


TXH 


WR1»1»* 


00316 


60200 00277 




SLW 


CHKSUM 


00317 


76600 00221 




WTB 


1 


00320 


70000 00277 




CPY 


CHKSUM 


00321 


70000 00222 




CPY 


EIGHTL 


00322 


70000 2 00353 


WR3 


CPY 


MAINBF»2 


00323 


1 77777 2 00324 




TXI 


WR4»2*-1 


00324 


3 00324 2 00326 


WR4 


TXH 


WR5»2»* 


00325 


O 02000 4 00001 




TRA 


1»4 


00326 


3 00353 2 00322 


WR5 


TXH 


WR3»2»MAINBF 


00327 


00000 4 00001 




HTR 


1.4 


00330 


-0 50000 00010 


MOVE 


CAL 


CDBUF 


00331 


76000 00006 




COM 




00332 


62200 00343 




STD 


MV3 


00333 


-0 53400 1 00161 




LXD 


ZER014#1 


00334 


-0 50000 00010 




CAL 


CDBUF 


00335 


-0 32000 00301 




ANA 


ADDMK 


00336 


40200 00224 




SUB 


NEWBEG 


00337 


-0 12000 00350 




TMI 


MV5 


00340 


76000 00006 




COM 




00341 


73400 2 00000 


MV1 


PAX 


0*2 


00342 


1 77777 1 00343 


MV2 


TXI 


MV3»1»-1 


00343 


-3 00343 1 00352 


MV3 


TXL 


MV6»lt* 


00344 


-0 50000 1 00011 




CAL 


CDBUF+lt 1 


00345 


-3 00352 2 00347 




TXL 


MV4>2fMAINBF-l 


00346 


60200 2 00352 




SLW 


MAINBF-1»2 



ERROR IN READING MASTER TAPE 



WRITES RECORD FROM MAIN BUFFER 
ONTO SECONDARY TAPE 



TRYING TO WRITE TOO LONG A RECORD 

MOVES A PROGRAM CARD FROM 

THE CARD BUFFER INTO THE 
CORRECT PART OF THE MAIN BUFFER 



EDT 


0171 


EOT 


0172 


EDT 


0173 


EDT 


0174 


EDT 


0175 


EDT 


0176 


EDT 


0177 


EOT 


0178 


EDT 


0179 


EDT 


0180 


EDT 


0181 


EDT 


0182 


EDT 


0183 


EDT 


0184 


EDT 


0185 


EDT 


0186 


EDT 


0187 


EDT 


0188 


EDT 


0189 


EDT 


0190 


EDT 


0191 


EDT 


0192 


EDT 


0193 


EDT 


0194 


EDT 


0195 


EDT 


0196 


EDT 


9197 


EDT 


0198 


EDT 


0199 


EDT 


0200 


EDT 


6201 


EDT O202 


EDT 


0203 


EDT 


0204 


EDT 


0205 


EDT 


0206 


EDT 


0207 


EDT 


0208 


EDT 


0209 


EDT 


0210 


EDT 


0211 


EDT 


0212 


EDT 


0213 


EDT 


0214 


EDT 


0215 


EDT 


0216 


EDT 


0217 


EDT 


0218 


EDT 


0219 


EDT 


0220 


EDT 


0221 


EDT 


0222 


EDT 


0223 


EDT 


0224 



^/ 



u 



o 



00347 1 77777 2 00342 MV4 TXI MV2»2»~1 

00350 40000 00255 MV5 ADD Ll 

00351 02000 00341 TRA MV1 

00352 02000 4 00001 MV6 TRA 1»4 

00353 00000 00000 MAINBF 

00040 END 32 



MAIN BUFFER STARTS HERE 



EOT 0225 
EOT 0226 
EDT 0227 
EDT 0228 
EDT 0229 
EDT 0230 
EDT 0231 



3LQ L 



1 




ORG 24 










- 


1 










00030 




ORG 


24 




00030 





53400 


3 


00173 


START 


LXA 


Lf0)»3 




00031 





60000 





00200 




STZ 


ERASE 




00032 





76200 





00321 


RCD 


RCD 






00033 


-0 


70000 





00174 




CAD 


9L 




00034 





02000 





00036 




TRA 


CPY9R 




00033 





02000 





00160 




TRA 


EXIT 




00036 





70000 





00175 


CPY9R 


CPY 


9R 




00037 





50000 





00174 




CLA 


9L 




00040 





10000 





00160 




TZE 


EXIT 




00041 





76000 





00006 




COM 






0O042 


-0 


73400 


4 


00000 




PDX 


0»4 




00043 


1 


00001 


4 


00044 




TXI 


CPY9R+6»4»1 




00044 


-3 


77700 


4 


00164 




TXL 


PASSGL>4>~64 




00045 





50000 





00174 




CLA 


9L 




00046 





76700 





00001 




ALS 


1 




00047 


-0 


76000 





00001 




PBT 






00050 





02000 





00071 




TRA 


BINARY CARD 




00051 


1 


77776 


4 


00053 




TXI 


CPAREL-2»4»-2 




00052 


-0 


63400 


4 


00057 




SXO 


TXHREL »4 


T 


00053 


-0 


75400 





00000 




PXD 






00054 





60000 





00200 




STZ 


ERASE 




00055 


-0 


70000 


2 


00202 


CPAREL 


CAD 


RELREG»2 




00056 


1 


77777 


2 


00057 




TXI 


TXHREL#2t-l 




00057 


3 


00057 


2 


00055 


TXHREL 


TXH 


CPAREL»2#* 




00060 





07400 


4 


00121 




TSX 


CHSTST»4 




00061 





76600 





00221 




WTB 


1 




00062 


-3 


00000 


1 


00065 




TXL 


TSXREL»1*0 




00063 





07400 


4 


00141 




TSX 


WRBIN»4 




00064 





76600 





00221 




WTB 


1 




00065 





07400 


4 


00132 


TSXREL 


TSX 


WRREL»4 




00066 





60000 





00176 




STZ 


9LB»0*STZ 




00067 





60000 





00177 




STZ 


9RB»0*STZ 




00070 





02000 





00032 




TRA 


RCD 


T 


00071 


-0 


75400 





00000 


BINARY 


PXD 






00072 


-0 


70000 


1 


00230 


CPABIN 


CAD 


BINREGtl 




00073 


1 


77777 


1 


00074 




TXI 


TXHBIN-1»1*-1 




00074 


1 


00001 


4 


000 75 




TXI 


TXHBIN»4#1 




00075 


3 


00000 


4 


00072 


TXHBIN 


TXH 


CPABIN#4#0 




00076 





07400 


4 


00121 




TSX 


CHSTSTt4 




00077 





50000 





00174 




CLA 


9L 




ooioo 





40000 





00176 




ADD 


9LB 




00101 





60100 





00176 




STO 


9LB 




00102 





50000 





00200 




CLA 


ERASE 




00103 





10000 





00116 




TZE 


CHER 




00104 





50000 





00175 




CLA 


9R 




00105 


-0 


12000 





00110 




TMI 


CHSIGN 




00106 





36100 





00201 




ACL 


L(l) 




00107 





02000 





00111 




TRA 


NORM 




00110 





76000 





00003 


CHSIGN 


SSP 






00111 





60200 





00175 


NORM 


SLW 


9R 




00112 


-0 


50000 





00175 




CAL 


9R 




00113 





36100 





00177 




ACL 


9RB 



PERMANENT LIBRARIAN ENTRY POINT 



EOF 



o 



o 



n 



00114 
00115 
00116 
00117 
00120 
00121 
00122 
00123 
00124 
00125 
00126 
00127 
00130 
00131 
©0132 
00133 
00134 
00135 
00136 
00137 
00140 
00141 
00142 
00143 
00144 
00145 
00146 
00147 
00150 
00151 
00152 
00153 
00154 
00155 
00156 
00157 
00160 
00161 
00162 
00163 
00164 
00165 
00166 
00167 
00170 
00171 
00172 
00173 
00174 
00175 
00176 
00177 
00200 
00201 



60200 

02000 

50000 

60100 

02000 

36100 

60200 

76600 

76600 

50000 

34000 

00000 

02000 

02000 

50000 

62100 

-0 63400 

70000 

53400 

70000 

-3 00000 

50000 

62100 

70000 

-0 63400 

53400 

70000 

-0 63400 

53400 

70000 

1 77777 
3 00153 

-0 53400 

76600 

76600 

02000 

76200 

70000 

70000 

02000 

-0 53400 

76200 

2 00001 
-3 00016 

00000 
00000 
00000 
00000 
00000 

ooooo 

00000 

ooooo 
ooooo 



00177 
00032 
00201 
00200 
00112 
00174 
00172 
00333 
00333 
00175 
00172 
0O001 
00001 
00127 
00171 
00151 
00153 
00174 
00173 
00175 
00147 
00170 
00151 
00176 
00153 
00173 
00177 
00140 
00173 
00151 
00153 
00151 
00140 
00333 
00333 
00001 
00321 
OOOOO 
00001 
OOOOO 
00167 
00321 
00165 
00030 
00230 
00202 
OOOOO 
OOOOO 
OOOOO 
OOOOO 
OOOOO 

ooooo 

OOOOO 



CHER 



CHSTST 



WRREL 



RETURN 
WRBIN 



XR 
CPY 



+377777777777 



EXIT 



PASSGL 



L(BIN) 

L(REL) 

CHS 

HO) 

9L 

9R 

9LB 

9RB 

ERASE 

L(l) 



SLW 
TRA 
CLA 
STO 
TRA 
ACL 
SLW 
IOD 
IOD 
CLA 
CAS 
HTR 
TRA 
TRA 
CLA 
STA 
SXD 
CPY 
LXA 
CPY 
TXL 
CLA 
STA 
CPY 
SXD 
LXA 
CPY 
SXD 
LXA 
CPY 
TXI 
TXH 
LXD 
IOD 
IOD 
TRA 
RCD 
CPY 
CPY 
TRA 
LXD 
RCD 
TIX 
TXL 



9RB 

RCD 

LU> 

ERASE 

NORM+1 

9L 

CHS 



9R 

CHS 

1»4 

1*4 

WRREL-3 

L(REL) 

CPY 

CPY+2*2 

9L 

LC0)»2 

9R 

XR»0 

L(BIN) 

CPY 

9LB 

CPY+2»1 

LI0)»1 

9RB 

RETURN»4 

L(0)»4 

*»4 

CPY+2»4s-l 

CPY»4»* 

RETURN*4 



1*4 


1 

PASSGL+3»4 

PASSGL+1»4#1 
RCD-2»0»14 
BINREG 
RELREG 



CARD READING ERROR 



BY-PASS 

GENERAL 

LIBRARIAN 

G.L. CARD COUNT 



HTR 

OCT 377777777777 



<h? 



00202 RELREG BSS 22 
00230 BINREG BSS 1 
60000 STZ EQU 24576 
0OQ3O END START 



u 



Q/k 



U 



ATD 





REM GENERAL LIBRARIAN 


GLIB2 
















GENERAL LIBRARIAN 










00030 




ORG 


24 


00030 





77200 





00225 


DUP0O0 


REW 


SOURCE 


00031 





77200 





00221 




REW 


OBJECT 


00032 


-0 


76000 





00012 




RTT 




00033 


3 


00000 





00000 




TXH 




00034 


-0 


53400 


7 


00040 




LXD 


DUP020#7 


00035 





76200 





00225 




RDS 


SOURCE 


00036 





70000 


1 


00507 


DUP010 


CPY 


REC0RD+27»1 


00037 


1 


77777 


1 


00036 




TXI 


DUP010«1»-1 


00040 





00033 





00000 


DUP020 


HTR 


0*0*27 


00041 





76600 





00333 




IOD 




00042 


-0 


76000 





00012 




RTT 




00043 





00000 





00030 




HTR 


DUPOOO 


00044 





76600 





00221 




WRS 


OBJECT 


00045 





70000 


2 


00507 


DUP030 


CPY 


RECORD+27»2 


00046 


2 


00001 


2 


00045 




TIX 


DUP03O»2*l 


00047 





76600 





00333 




IOD 




00050 


-0 


76000 





00012 




RTT 




00051 


3 


00000 





00156 


DUP031 


TXH 


DUP170»0»0 


00052 





76400 





00221 




BST 


OBJECT 


00053 





76200 





00221 




RDS 


OBJECT 


00054 





70000 





00453 


DUP040 


CPY 


DUMMY 


00055 





02000 





00060 




TRA 


DUP050 


00056 





00000 





00000 




HTR 




00057 





02000 





00065 




TRA 


DUP060 


60060 





50000 


4 


00507 


DUP050 


CLA 


REC0RD+27»4 


00061 





34000 





00453 




CAS 


DUMMY 


00062 





00000 





00030 




HTR 


DUPOOO 


00063 


1 


77777 


4 


00054 




TXI 


DUP040»4#-1 


00064 





00000 





00030 




HTR 


DUPOOO 


00065 


3 


00000 


4 


00427 


DUP060 


TXH 


DUP280*4*0 


00066 





76600 





00333 




IOD 




00067 


-0 


76000 





00012 




RTT 




00070 





00000 





00030 




HTR 


DUPOOO 


00071 


-0 


53400 


7 


00051 


DUP070 


LXD 


DUP031*7 


00072 


-0 


75400 





00000 




PXD 




00073 





76200 





00225 


DUP071 


RDS 


SOURCE 


00074 





70000 


1 


00454 




CPY 


REC0RD»1 


00075 


1 


77777 


1 


00100 




TXI 


DUP090»1*-1 


00076 





02000 





00144 


DUP080 


TRA 


DUP160 


00077 





00000 





00000 




HTR 




00100 


-0 


70000 


1 


00454 


DUP090 


CAD 


RECORDtl 


00101 


1 


77777 


1 


00100 




TXI 


DUP090»1*-1 


00102 





00000 





00000 




HTR 




00103 





76000 





00006 




COM 




00104 





36100 





00454 




ACL 


RECORD 


00105 





76000 





00006 




COM 




00106 





10000 





00110 




TZE 


DUP100 


00107 





00000 





00430 




HTR 


DUP290 


00110 





76600 





00333 


DUP100 


IOD 




00111 


-0 


76000 





00012 




RTT 




00112 





00000 





00432 




HTR 


DUP300 



GLIB2 

GENERAL LIBRARIAN 

TURN OFF RTT TRIGGER 

INITIALIZE INDEX REGISTERS TO 27 
READ 1-CS FROM SOURCE 



MACHINE ERROR 
EOR-DELAY 

RTT ERROR — TRY AGAIN 
WRITE 1-CS ONTO OBJECT 



TURN OFF RTT TRIGGER 



READ BACK 1-CS FROM OBJECT 



EOR 



WORD COMP. FAILS-READING 

FROM OBJECT 

ERROR-INCOMPLETE OBJECT RECORD 



RTT ERROR READING BACK OBJECT 1-CS 

INITIALIZE INDEX REG TO 

CLEAR AC 

READ SOURCE 1ST/2ND FILE RECORD 



EOF 

MACHINE ERROR 



MACHINE ERROR 
EOR 



CKSM FAILS READING SOURCE 1ST/2ND FILE 



RTT ERROR-BST AND TRY AGAIN 



*</) 



3Z.0 L 



00113 


-0 


63400 


1 


00120 




SXD 


DUP120»1 


00114 


-0 


63400 


1 


00137 




SXD 


DUP150»1 


00115 





76600 





00221 




WRS 


OBJECT 


00116 





70000 


2 


00454 


DUP110 


CPY 


REC0RD»2 


00117 


1 


77777 


2 


00120 




TXI 


DUP120»2»-1 


00120 


3 


00000 


2 


00116 


DUP120 


TXH 


DUPllOt2#*» 


00121 





76600 





00333 


DUP121 


IOD 




00122 


-o 


76000 





0CJ912 




RTT 




ATD 00123 


3 


00000 





00000 




TXH 




00124 





76400 





00221 




BST 


OBJECT 


00125 





76200 





00221 




RDS 


OBJECT 


00126 





70000 





00453 


DUP130 


CPY 


DUMMY 


G0127 





02000 





00132 




TRA 


DUP140 


A 00130 





00000 





00000 




HTR 




00131 





02000 





00137 




TRA 


DUP150 


00132 





50000 


4 


00454 


DUP140 


CLA 


REC0RD»4 


00133 





34000 





00453 




CAS 


DUMMY 


00134 





00000 





00434 




HTR 


DUP310 


00135 


1 


77777 


4 


00126 




TXI 


DUP130»4»-1 


00136 





00000 





00434 




HTR 


DUP310 


00137 


3 


00000 


4 


00436 


DUP150 


TXH 


DUP320»4»** 


00140 





76600 





00333 




IOD 




00141 


-0 


76000 





00012 




RTT 




00142 





00000 





00434 




HTR 


DUP310 


00143 





02000 





00071 




TRA 


DUP070 


00144 





76600 





00333 


DUP160 


IOD 




00145 


-o 


76000 





00012 




RTT 




00146 





00000 





00444 




HTR 


DUP340 


00147 





77000 





00221 




WEF 


OBJECT 


00150 





76600 





00333 




IOD 




00151 


-0 


76000 





00012 




RTT 




ATD 00152 


3 


0000G 





00000 




TXH 




00153 





50000 





00051 




CLA 


DUP031 


00154 





62100 





00076 




STA 


DUP080 


00155 





02000 





00071 




TRA 


DUP070 


00156 





76600 





00333 


0UP170 


IOD 




00157 


-0 


76000 





00012 




RTT 




00160 





00000 





00444 




HTR 


DUP340 


00161 





77000 





00221 




WEF 


OBJECT 


00162 





76600 





00333 


DUP171 


IOD 




00163 


-0 


760O0 





00012 




RTT 




ATD 00164 


3 


00000 





00000 




TXH 




00165 


-0 


53400 


7 


00051 


DUP180 


LXD 


DUP031»7 


T 00166 


-0 


75400 





00000 




PXD 




00167 





76200 





00225 


DUP181 


RDS 


SOURCE 


00170 


-0 


70000 


1 


00454 




CAD 


RECORD >1 


00171 


1 


77777 


1 


00174 




TXI 


DUP190*1*-1 


A 00172 





00000 





00000 




HTR 




A 00173 





00000 





00000 




HTR 




00174 





70000 


1 


00454 


DUP190 


CPY 


REC0RD»1 


00175 


1 


77777 


1 


00176 




TXI 


DUP200»1*-1 


00176 


-0 


70000 


1 


00454 


DUP200 


CAD 


RECORD tl 


00177 


1 


77777 


1 


00176 




TXI 


DUP200»1»-1 


A 00200 





00000 





00000 




HTR 





WRITE OBJECT 1ST/2ND FILE RECORD 

TU#N OFF RTT TRIGGER 

READ BACK OBJECT 1ST/2ND FILE RECORD 



MACHINE ERROR 
EOR 



COMP. ERROR ON 1ST/2ND FILE RECORD 

COMP. ERROR ON 1ST/2ND FILE RECORD, 
ERROR-INCOMPLETE OBJECT RECORD 



RTT ERROR-BST AND TRY AGAIN 



RTT ERROR - BST TWICE ON SOURCE 
WRITE 1ST EOF 

TURN OFF RTT TRIGGER 



RTT ERROR- BST TWICE ON SOURCE 
WRITE 2ND EOF 

TURN OFF RTT TRIGGER 

INITIALIZE INDEX REG TO 

CLEAR AC 

READ SOURCE 3RD FILE RECORD 



FALSE 3RD FILE EOF MARK. 

MACHINE ERROR 

CPY CKSM INTO RECORD+1 



MACHINE ERROR 



u 



u 



A TO 



00201 
00202 
00203 
00204 
00205 
00206 
0O207 
00210 
00211 
00212 
00213 
00214 
00215 
00216 
00217 
00220 
00221 
00222 
00223 
00224 
00225 
00226 
00227 
00230 
00231 
00232 
00233 
00234 
00235 
00236 
0O237 
00240 
0O241 
00242 
00243 
00244 
00245 
00246 
00247 
00250 
00251 
0O252 
0O253 
00254 
00255 
00256 
00257 
OO260 
00261 
00262 
00263 
00264 
00265 
00266 



76100 

76000 

36100 

76000 

10000 

00000 

76600 

760O0 

00000 

63400 

63400 

76600 

70000 

77777 

00000 

76600 

76000 

00000 

76400 

76200 

70000 

02000 

00000 

02000 

50000 

34000 

00000 

77777 4 

00000 

00000 

76600 

76000 

00000 

50000 

40200 

10000 

50000 

60200 

02000 

53400 

60000 

76200 

70000 

02 000 

02000 

70000 

50000 

10000 

76000 

73400 

00001 

50000 

76700 

76000 



00000 
00006 
00455 
00006 
00207 
00450 
00333 
00012 
©045© 
00217 
00236 
00221 
00454 
00217 
00215 
00333 
00012 
00000 
00221 
00221 
00453 
00231 
00000 
00236 
00454 
00453 
00452 
00225 
00452 
00454 
00333 
00012 
00452 
00460 
00416 
00165 
00425 
00201 
00165 
00415 
00423 
00321 
00417 
00256 
00406 
00420 
00417 
00406 
00006 
00000 
00264 
00417 
00001 
00001 



SWITCH 



DUP210 



DUP220 

DUP230 
DUP231 



DUP240 



DUP250 



DUP260 



EXIT1 
RCD 

CPY9R 



NOP 

COM 

ACL RECORD+1 

COM 

TZE DUP 21© 

HTR DUP350 

100 

RTT 

HTR DUP350 

SXD DUP230*1 

SXD DUP260»1 

WRS OBJECT 

CPY REC0RD»2 

TXI DUP230»2»-1 

TXH DUP220»2»** 

100 

RTT 

TXH 

BST OBJECT 

RDS OBJECT 

CPY DUMMY 

TRA DUP250 

HTR 

TRA DUP26Q 

CLA RECORD #4 

CAS DUMMY 

HTR DUP360 

TXI DUP240»4t-l 

HTR DUP360 

TXH DUP370»4 

IOD 

RTT 

HTR DUP360 

CAL REC0RD+4 

SUB NAME 

TN2 DUP180 

CAL TRAN 

SLW SWITCH 

TRA DUP180 

LXA LC0)»3 

STZ ERASE 

RCD 

CAD 9L 

TRA CPY9R 

TRA EXIT 

CPY 9R 

CLA 9L 

TZE EXIT 

COM 

PDX 0t4 

TXI CPY9R+6»4»1 

CLA 9L 

ALS 1 

PBT 



EOR 



CfCSM FAILS READING SOURCE 3RD FILE 



RTT ERROR-BST 



WRITE OBJECT 3RD FILE RECORD 



TURN OFF RTT TRIGGER 



READ BACK OBJECT 3RD FILE RECORD 



MACHINE ERROR 
EOR 



COMP # ERROR ON 3RD FILE 

ERROR- INCOMPLETE OBJECT RECORD 



EOF 



'th 



D L 



00267 





02000 





00310 




TRA 


BINARY CARD 


00270 


1 


77776 


4 


00272 




TXI 


CPAREL-2.4»-2 


00271 


-0 


63400 


h 


00276 




SXD 


TXHREL»4 


00272 


-0 


75400 





00000 




PXD 




00273 





60000 





00423 




STZ 


ERASE 


00274 


-0 


70000 


2 


00460 


CPAREL 


CAD 


RELREG»2 


00275 


1 


77777 


2. 


00276 




TXI 


TXHREL »2f-l 


00276 


3 


00276 


2 


00274 


TXHREL 


TXH 


CPAREL»2#* 


00277 





07400 


4 


00340 




TSX 


CHSTST »4 


00300 





76600 





00221 




WTB 


1 


00301 


-3 


00000 


1' 


00304 




TXL 


TSXREL»1»0 


00302 





07400 


4 


00360 




TSX 


WRBIN»4 


00303 





76600 





00221 




WTB 


1 


00304 





07400 


4 


00351 


TSXREL 


TSX 


WRRELi4 


00303 





60000 





00421 




STZ 


9LB»0»STZ 


00306 





60000 





00422 




STZ 


9RB»0»STZ 


00307 





02000 





00252 




TRA 


RCD 


00310 


-0 


75400 





00000 


BINARY 


PXD 




00311 


-0 


70000 


1 


00506 


CPABIN 


CAD 


BINREG>1 


00312 


1 


77777 


1 


00313 




TXI 


TXHBIN-I»lf-1 


00313 


1 


00001 


4 


00314 




TXI 


TXHBIN»4»1 


00314 


3 


00000 


4 


00311 


TXHBIN 


TXH 


CPABIN. 4»0 


00315 





07400 


4 


00340 




TSX 


CHSTST t4 


00316 





50000 





00417 




CLA 


9L 


00317 





40000 





00421 




ADD 


9LB 


00320 





60100 





00421 




STO 


9LB 


00321 





50000 





00423 




CLA 


ERASE 


00322 





10000 





00335 




TZE 


CHER 


00323 





50000 





00420 




CLA 


9R 


00324 


-0 


12000 





00327 




TMI 


CHSIGN 


00325 





36100 





00424 




ACL 


L(l) 


00326 





02000 





00330 




TRA 


NORM 


00327 





76000 





00003 


CHSIGN 


SSP 




00330 





60200 





00420 


NORM 


SLW 


9R 


00331 


-0 


50000 





00420 




CAL 


9R 


00332 





36100 





00422 




ACL 


9RB 


00333 





60200 





00422 




SLW 


9RB 


00334 





02000 





00252 




TRA 


RCD 


00335 





50000 





00424 


CHER 


CLA 


L(l) 


00336 





60100 





00423 




STO 


ERASE 


00337 





02000 





00331 




TRA 


.NORM+l 


00340 





36100 





00417 


CHSTST 


ACL 


9L 


00341 





60200 





00414 




SLW 


CHS 


00342 





76600 





00333 




100 




00343 





76600 





00333 




IOD 




00344 





50000 





00420 




CLA 


9R 


00345 





34000 





00414 




CAS 


CHS 


00346 





00000 


4 


00001 




HTR 


1«4 


00347 





02000 


4 


00001 




TRA 


1*4 


00350 





02000 





00346 




TRA 


WRREL-3 


00351 





50000 





00413 


WRREL 


CLA 


LJREU 


00352 





62100 





00370 




STA 


CPY 


00353 


-0 


63400 


2 


00372 




SXD 


CPY+2.2 


00354 





70000 





00417 




CPY 


9L 



CARD READING ERROR 



u 



u 



ATD 



ATD 



00355 





53400 


2 


00415 


LXA L<0>*2 


00356 





70000 





00420 


CPY 9R 


00357 


-3 


00000 





00366 RETURJN 


1 TXL XR*0 


00360 





50000 





00412 WRBIN 


CLA L(BIN) 


00361 





62100 





00370 


STA CPY 


00362 





70000 





00421 


CPY 9LB 


00363 


-0 


63400 


1 


00372 


SXD CPY+2»1 


00364 





53400 


1 


00415 


LXA L(0) tl 


00365 





70000 





00422 


CPY 9RB 


00366 


-0 


63400 


4 


00357 XR 


SXD RETURN »4 


00367 





53400 


4 


00415 


LXA LtO) t4 


00370 





70000 


4 


00370 CPY 


CPY **4 


00371 


1 


77777 


4 


00372 


TXI CPY+2#4t-l 


00372 


3 


00372 


4 


00370 


TXH CPY»4t* 


00373 


-0 


53400 


4 


00357 


LXD RETURN »4 


00374 





76600 





00333 


IOD 


00375 





76600 





00333 


IOD 


00376 





02000 


4 


00001 


TRA 1*4 


00377 





60200 





00426 RELBIN 


SLW HOLD 


00400 





50000 





00417 


CLA 9L 


00401 





76700 





00001 


ALS 1 


00402 


-0 


76000 





00001 


PBT 


00403 





02000 





00250 


TRA EXIT1 


00404 


-0 


50000 





00426 


CAL HOLD 


00405 





02000 





00202 


TRA SWITCH+1 


00406 





76200 





00321 EXIT 


RCD 


00407 





70000 





00000 


CPY 


00410 





70000 





00001 


CPY 1 


00411 





02000 





00000 


TRA 


00412 





00000 





00506 L(BIN) 


BINREG 


00413 





00000 





00460 L(REL) 


RELREG 


00414 





00000 





00000 CHS 




00415 





00000 





00000 L(0) 




00416 


256747740360 NAME 


BCD 1EXP(3 


00417 





00000 





00000 9L 




00420 





00000 





00000 9R 




00421 





00000 





00000 9LB 




00422 





00000 





00000 9RB 




00423 





00000 





00000 ERASE 


HTR 


00424 


+377777777777 L(l) 


OCT 377777777777 


00425 





02000 





00377 TRAN 


TRA RELBIN 


00426 





00000 





00000 HOLD 




00427 





00000 





00030 DUP280 


HTR DUPOOO 


00430 


-0 


76000 





00012 DUP290 


RTT 


00431 


3 


00000 





00000 


TXH 


00432 





76400 





00225 DUP300 


BST SOURCE 


00433 





02000 





00071 


TRA DUP070 


00434 


-0 


53400 


4 


00051 0UP310 


LXD DUP031*4 


00435 





©2000 





00121 


TRA DUP121 


00436 





00000 





00437 DUP320 


HTR DUP330 


00437 « 


-0 


76000 





00012 DUP330 


RTT 


00440 


3 


00000 





00000 


TXH 


00441 





76400 





00225 


BST SOURCE 


00442 





76400 





00221 


BST OBJECT 



RECORD IS THE 1ST CONTROL CARD OF GEN* LIB* 

RETURN TO READING PERMANENT LIB* 
PULL IN FNDE2 



''/ 



D L 



00443 





02000 





00071 




TRA 


DUP070 


00444 





76400 





00225 


DUP340 


BST 


SOURCE 


00445 





76400 





00225 




BST 


SOURCE 


00446 





76200 





00225 




RDS 


SOURCE 


00447 





02000 





00073 




TRA 


DUP071 


00450 





76400 





00225 


DUP350 


BST 


SOURCE 


00451 





02000 





00162 




TRA 


DUP171 


00452 


-0 


53400 


4 


00051 


DUP360 


LXD 


DUP031»4 


00453 





02000 





00220 




TRA 


DUP231 


00454 





00000 





00455 


DUP370 


HTR 


DUP380 


00455 





76400 





00225 


DUP380 


BST 


SOURCE 


00456 





76400 





00221 




BST 


OBJECT 


00457 





02000 





00162 




TRA 


DUP171 










00460 


RE'LREG 


BSS 


22 










00506 


BINREG 


BSS 


1 










60000 


STZ 


EQU 


24576 










00225 


SOURCE 


SYN 


149 










00221 


OBJECT 


SYN 


145 










00454 


RECORD 


SYN 


300 










00453 


DUMMY 


SYN 


299 










00030 




END 


24 



QV 



o 



u 



1 


REM TAPE 


DUPLICAT 


1 




00030 


00030 


77200 


00225 


€0031 


77200 


00221 


00032 


-0 76000 


00012 


ATD 00033 


3 0000© 


00000 


00034 


-0 53400 


7 00040 


00035 


76200 


00225 


00036 


70OOO 


1 00507 


00037 


1 77777 


1 00036 


00040 


00033 


00000 


©0041 


76600 


00333 


00042 


-0 76000 


00012 


00043 


00000 


00030 


00044 


76600 


00221 


00045 


70000 


2 00507 


00046 


2 00001 


2 00045 


00047 


76600 


00333 


- 00050 


-0 76000 


00012 


00051 


3 00000 


00156 


00052 


76400 


00221 


00053 


76200 


00221 


00054 


70000 


00453 


00055 


02000 


00060 


A 00056 


00000 


00000 


00057 


02000 


00065 


00060 


50000 


4 00507 


00061 


34000 


00453 


00062 


00000 


0003O 


00063 


1 77777 


4 00054 


00064 


00000 


00030 


00065 


3 00000 


4 00321 


00066 


7*600 


00333 


00047 


-0 76000 


©0012 


00070 


00000 


OO03O 


00071 


-0 53400 


7 00051 


T 00072 


-0 75400 


00000 


©0073 


74200 


00225 


00074 


O 7000© 


1 00454 


©0075 


1 77777 


1 00100 


00076 


©2000 


00144 


A 00077 


©0000 


00000 


©0100 


-0 70000 


1 00454 


ooioi 


1 77777 


1 00100 


A 00102 


00000 


00000 


00103 


76OO0 00006 


#03:04 


36400 


©0454 


©OIS5 


74000 


00006 


00106 


10000 


00110 


00107 


00000 


00322 


00110 


76600 


00333 


00111 


-0 74000 


00012 


00112 


00000 


00324 



IN6 PROGRAM F2TCVP 

TAPE DUPLICAT 

ORG 24 
DUPOOO REM SOURCE 

REtd OBJECT 

RTT 

TXH 

LXD DUP020»7 

ROS SOURCE 
DUPO 10 CPY fi€C0RD+27»l 

TXI 0UPOlO»lf-l 
DUP020 HTR 0*0*27 

100 

RTT 

HTR DUPOOO 

WRS OBJECT 
DUPO 30 CPY RECORD+2 7 » 2 

T1X DUPO30f2»l 

100 

RTT 
DUP031 TXH DUP170*0»0 

85T OBJECT 

RD5 OBJECT 
DUP040 CPY DUMMY 

TRA DUP050 

HTR 

TRA DUPO60 
0UPO5O CLA REC0R0+27»4 

CAS DUMMY 

HTR DUPOOO 

TXI DUP040»4»-1 

HTR DUPOOO 
DUP060 TXH 0UP28Of4»O 

too 

RTT 

HTR ©UP 000 
DUPO 70 LXD D0PQ31»7 

PXD 
DUP071 RDS SOURCE 

CPY RECORD »1 

TXI 0UP09O»lf-l 
DUP080 TRA DUP160 

HTR 
DUP090 CAD RECORD »1 

TXI ©UP090fl»-l 

HTR 

COM 

ACL RECORD 

COM 

TZE DUP100 

HTR DUP290 
DUP100 I 00 

RTT 

HTR DUP300 



ING PROGRAM 



F2TCVP 



TURN OFF RTT TRIGGER 

INITIALIZE INDEX REGISTERS#TO 27 
READ 1-CS FROM SOURCE 



MACHINE ERROR 
EOR- DELAY 

RTT ERROR — TRY AGAIN 
WRITE 1-CS ONTO OBJECT 



TURN OFF RTT TRIGGER 



READ BACK 1-CS FROM OBJECT 



EOR 



WORD COMP* FAILS-READING 

FROM OBJECT 

ERROR-INCOMPLETE OBJECT RECORD 



RTT ERROR READING BACK OBJECT 1-CS 

INITIALIZE INDEX REG TO 

CLEAR AC 

READ SOURCE 1ST/2ND FILE RECORD 



EOF 

MACHINE ERROR 



MACHINE ERROR 
EOR 



CKSM FAILS READING SOURCE 1ST/2ND FILE 



RTT ERROR-BST AND TRY AGAIN 



C,i< 



SD L 



ATD 



ATD 



ATD 



00113 


-0 


63400 


1 


00120 




SXD 


DUP120«1 


00114 


-0 


63400 


1 


00137 




SXD 


0UP150«1 


00115 





76600 





00221 




WRS 


08JECT 


00116 





70000 


2 


00454 


DUP110 


CPY 


RECORD t 2 


00117 


1 


77777 


2 


00120 


- 


TXI 


DUP120*2»-1 


00120 


3 


ooooc 


2 


00116 


DUP120 


TXH 


DUP110»2»** 


00121 





76600 





00333 


DUP121 


100 




00122 


-0 


76000 





00012 




RTT 




00123 


3 


00000 





00000 




TXH 




00124 





76400 





00221 




BST 


OBJECT 


00125 





76200 





00221 




RDS 


OBJECT 


00126 





70000 





00453 


DUP130 


CPY 


DUMMY 


00127 





02OOO 





00132 


■ 


TRA 


DUP140 


00130 





00000 





00000 




HTR 




00131 





02000 





00137 




TRA 


DUP150 


00132 





50000 


4 


00454 


DUP140 


CLA 


RECORD »4 


00133 





34000 





00453 




CAS 


DUMMY 


00134 





00000 





00326 




HTR 


DUP310 


00135 


1 


77777 


4 


00126 




TXI 


DUP130»4»-1 


00136 





00000 





00326 




HTR 


OUP310 


00137 


3 


00000 


4 


00330 


OUP150 


TXH 


DUP320»4»** 


00140 





76600 





00333 




IOD 




00141 


-0 


76000 





00012 




RTT 




00142 


0. 


00000 





00326 




HTR 


DUP310 


00143 





02000 





00071 




TRA 


DUP070 


00144 





76600 





00333 


DUP160 


IOD 




00145 


-0 


76000 





00012 




RTT 




00146 





00000 





00336 




HTR 


DUP340 


00147 





77000 





00221 




WEF 


OBJECT 


00150 





76600 





00333 




IOD 




00151 


-0 


76000 





00012 




RTT 




00152 


3 


00000 





ooooo 




TXH 




00153 





50000 





00051 




CLA 


DUP031 


00154 





62100 





00076 




STA 


DUP080 


00155 





02000 





00071 




TRA 


DUP070 


00156 





76600 





00333 


DUP170 


IOD 




00157 


-0 


76000 





00012 




RTT 




00160 





00000 





00336 




HTR 


DUP340 


00161 





77000 





00221 




WEF 


OBJECT 


00162 





76600 





00333 


DUP171 


IOD 




00163 


-0 


76000 





00012 




RTT 




00164 


3 


00000 





OOOOO 




TXH 




00165 


-0 


53400 


7 


00051 


DUP1S0 


LXD 


DUP031»7 


00166 


-0 


75400 





OOOOO 




PXD 




00167 





76200 





00225 


DUP181 


RDS 


SOURCE 


00170 


-0 


70000 


1 


00454 




CAD 


RECORD »1 


00171 


1 


77777 


1 


00174 




TXI 


DUP190#1#-1 


00172 





02000 





00242 




TRA 


OUP270 


00173 





00000 





OOOOO 




HTR 




00174 





70000 


1 


00454 


DUP190 


CPY 


RECORD »1 


00175 


1 


77777 


1 


00176 




TXI 


DUP200#1»-1 


00176 


-0 


70000 


1 


00454 


DUP200 


CAD 


RECORD tl 


00177 


1 


77777 


1 


00176 




TXI 


DUP200»1»-1 


00200 





00000 





OOOOO 




HTR 





WRITE OBJECT 1ST/2ND FILE RECORD 



TURN OFF RTT TRIGGER 

READ BACK OBJECT 1ST/2ND FILE RECORD 

MACHINE ERROR 
EOR 

COMP. ERROR ON 1ST/2ND FILE RECORD 

DITTO 

ERROR- INCOMPLETE OBJECT RECORD 

RTT ERROR-BST AND TRY AGAIN 



RTT ERROR - BST TWICE ON SOURCE 
WRITE 1ST EOF 

TURN OFF RTT TRIGGER 



RTT ERROR- BST TWICE ON SOURCE 
WRITE 2ND EOF 

TURN OFF RTT TRIGGER 

INITIALIZE INDEX REG TO 

CLEAR AC 

READ SOURCE 3RD FILE RECORD 



EOF 

MACHINE ERROR 

CPY CKSM INTO RECORD+1 



MACHINE ERROR 



^ 



u 



u 



ATD 



00201 





76000 





00006 




00202 





36100 





00455 




00203 





76000 





00006 




00204 





10000 





00206 




00205 





00000 





00342 




00206 





76600 





00333 


DUP210 


00207 


-0 


76000 





00012 




0#210 





ooooo 





00342 




00211 


-0 


63400 


1 


00216 




00212 


-0 


63400 


1 


00235 




00213 





76600 





00221 




00214 





70000 


2 


00454 


DUP220 


00215 


1 


77777 


2 


00216 




00216 


3 


00000 


2 


00214 


DUP230 


00217 





76600 





00333 


DUP231 


00220 


-0 


76000 





00012 




00221 


3 


ooooo 





OOOOO 




00222 





76400 





00221 




00223 





76200 





00221 




00224 





70000 





00453 


DUP240 


00225 





02000 





00230 




00226 





ooooo 





OOOOO 




00227 





02000 





00235 




00230 





50000 


4 


00454 


DUP250 


00231 





34000 





00453 




00232 





OOOOO 





00344 




00233 


1 


77777 


4 


00224 




00234 





OOOOO 





00344 




00235 


3 


OOOOO 


4 


00346 


DUP260 


00236 





76600 





00333 




00237 


-0 


76000 





00012 




00240 





OOOOO 





00344 




00241 





02000 





00165 




00242 





76600 





00333 


DUP270 


00243 


-0 


76000 





00012 




00244 





OOOOO 





00352 




00245 





77000 





00221 




00246 


-0 


53400 


7 


00051 


FILE40 


00247 


-o 


75400 





OOOOO 




00250 





76200 





00225 




00251 





70000 


1 


00454 


FILE41 


00252 


1 


77777 


1 


00251 




00253 


. 


02000 





00310 




00254 





76600 





00333 




00255 


-0 


76000 





00012 




00256 





OOOOO 





00356 




00257 


-0 


63400 


1 


00264 




00260 


-0 


63400 


1 


00303 




00261 





76600 





00221 




00262 





70000 


2 


00454 


FILE42 


00263 


1 


77777 


2 


00264 




00264 


3 


OOOOO 


2 


00262 


FILE43 


00265 





76600 





00333 


FILE50 


00266 


-0 


76000 





00012 





COM 

ACL RECORD* 1 

COM 

TZE DUP210 

HTR OUP350 

IOD 

RTT 

HTR nuF*i50 

SXD DUP230»1 

SXD DUP260#1 

WRS OBJECT 

CPY REC0RD»2 

TXI DUP230*2»-1 

TXH DUP220»2#** 

IOD 

RTT 

TXH 

8ST OBJECT 

RDS OBJECT 

CPY DUMMY 

TRA DUP250 

HTR 

TRA DUP260 

CLA RECORD »4 

CAS DUMMY 

HTR DUP360 

TXI DUP240»4t-i 

HTR DUP360 

TXH DUP370#4 

IOD 

RTT 

HTR DUP360 

TRA DUP18Q 

IOD 

RTT 

HTR DUP390 

WEF OBJECT 

LXD DUP031>7 

PXD 

RDS SOURCE 

CPY REC0RD»1 

TXI FILE41»1»-1 

TRA FILE47 

IOD 

RTT 

HTR FIL4E1 

SXD FILE43>1 

SXD FILE46tl 

WRS OBJECT 

CPY RECORD #2 

TXI FILE43*2»-1 

TXH FILE42*2»** 

IOD 

RTT 



EOR 



CKSM FAILS READING SOURCE 3RD FILE 



RTT ERROR-BST 



WRITE OBJECT 3RD FILE RECORD 



TURN OFF RTT TRIGGER 



READ BACK OBJECT 3RD FILE RECORD 



MACHINE ERROR 
EOR 



COMP* ERROR ON 3RD FILE 

ERROR- INCOMPLETE OBJECT RECORD 

RTT ERROR-BST 



RTT ERROR - BST TWICE 
WRITE 3RD FILE EOF 
DUPLICATE FILE 4 

READ SOURCE FILE 4 RECORD 



EOF 
EOR 

RTT ERROR - BST AND TRY AGAIN 



WRITE OBJECT 4TH FILE RECORD 



TURN OFF RTT TRIGGER 



o 



L 



















ATO 00267 


3 


00000 





00000 




TXH 




00270 





76400 





00221 




BST 


OBJECT 


00271 





76200 





00221 




RDS 


OBJECT 


00272 





70000 





00453 


FILE44 


CPY 


DUMMY 


00273 





02000 





00276 




TRA 


FILE45 


A 00274 





00000 





00000 




HTR 




00275 





02000 





00303 




TRA 


FILE46 


00276 





50000 


4 


00454 


FILE45 


CLA 


RECORD »4 


00277 





34000 





00453 




CAS 


DUMMY 


00300 





00000 





00360 




HTR 


FIL4E2 


00301 


1 


77777 


4 


00272 




TXI 


FILE44#4»-1 


00302 





00000 





00360 




HTR 


F1L4E2 


00303 


3 


00000 


4 


00366 


FILE46 


TXH 


FIL4E4#4»** 


00304 





76600 





00333 




IOD 




00305 


-0 


76000 





00012 




RTT 




00306 





00000 





00360 




HTR 


FIL4E2 


00307 





02000 





00246 




TRA 


FILE40 


00310 





76600 





00333 


FILE47 


IOD 




00311 


-0 


76000 





00012 




RTT 




00312 





00000 





00362 




HTR 


FIL4E3 


00313 





77000 





00221 




WEF 


OBJECT 


00314 





77200 





00225 




REW 


SOURCE 


00315 





77200 





00221 




REW 


OBJECT 


00316 


-0 


76000 





00012 




RTT 




ATO 00317 


3 


00000 





ooooo 




TXH 




A 00320 





00000 





00000 




HTR 




00321 





00000 





00030 


DUP280 


HTR 


DUPOOO 


00322 


-0 


76000 





00012 


DUP290 


RTT 




ATD 00323 


3 


00000 





OOOOO 




TXH 




00324 





76400 





00225 


DUP300 


BST 


SOURCE 


00325 





02000 





00071 




TRA 


DUP070 


00326 


-0 


53400 


4 


00051 


0UP310 


LXD 


DUP031*4 


00327 





02000 





00121 




TRA 


DUP121 


00330 





00000 





00331 


DUP320 


HTR 


DUP330 


00331 


-0 


76000 





00012 


DUP330 


RTT 




ATD 00332 


3 


00000 





OOOOO 




TXH 




00333 





76400 





00225 




BST 


SOURCE 


00334 





76400 





00221 




BST 


OBJECT 


00335 





02000 





00071 




TRA 


DUP070 


00336 





76400 





00225 


DUP340 


BST 


SOURCE 


00337 





76400 





00225 




BST 


SOURCE 


00340 





76200 





00225 




RDS 


SOURCE 


00341 





02000 





00073 




TRA 


DUP071 


00342 





76400 





00225 


DUP350 


BST 


SOURCE 


00343 





02000 





00162 




TRA 


DUP171 


00344 


-0 


53400 


4 


00051 


DUP360 


LXD 


DUP031«4 


00345 





02000 





00217 




TRA 


DUP231 


00346 





00000 





00347 


DUP370 


HTR 


DUP380 


00347 





76400 





00225 


DUP380 


BST 


SOURCE 


00350 





76400 





00221 




BST 


OBJECT 


00351 





02000 





00162 




TRA 


DUP171 


00352 





76400 





00225 


DUP390 


BST 


SOURCE 


00353 





76400 





00225 




BST 


SOURCE 


00354 





76200 





00225 




RDS 


SOURCE 



READ BACK OBJECT 4TH FILE RECORD 



MACHINE ERROR 
EOR 



COMP. ERROR ON 4TH FILE RECORD 

COMP. ERROR ON 4TH FILE RECORD 
ERROR - INCOMPLETE OBJECT RECORD 



RTT ERROR - BST AND TRY AGAIN 



RTT ERROR - BST TWICE ON SOURCE 
WRITE 4TH FILE EOF 



FINAL STOP. 



c,t 



U 



o 



/""> 



ATD 



00355 





02000 





00167 




TRA 


DUP181 


00356 





76400 





00225 


FIL4E1 


BST 


SOURCE 


00357 





02000 





00246 




TRA 


FILE40 


00360 


-0 


53400 


4 


00051 


FIL4E2 


LXD 


DUP031»<» 


00361 





02000 





00265 




TRA 


FILE50 


00362 





76400 





00225 


FIL4E3 


BST 


SOURCE 


00363 





76400 





00225 




BST 


SOURCE 


00364 





76200 





00225 




RDS 


SOURCE 


00365 





02000 





00250 




TRA 


FILE40+2 


00366 





00000 





00367 


FIL4E4 


HTR 


FIL4E5 


00367 


-0 


76000 





00012 


FIL4E5 


RTT 




00370 


3 


00000 





00000 




TXH 




00371 





76400 





00225 




BST 


SOURCE 


00372 





76400 





00221 




BST 


OBJECT 


00373 





02000 





00246 




TRA 


FILE40 










00225 


SOURCE 


SYN 


149 










00221 


OBJECT 


SYN 


145 










00454 


RECORD 


SYN 


300 










00453 


DUMMY 


SYN 


299 










00030 




END 


24 



C\ 



i >; 



360 L 



REM BINARY AND SYMBOLIC 



SUBROUTINE LOADER FOR 704 FORTRAN II 

BINARY AND SYMBOLIC SUBROUTINE LOADER FOR 704 FORTRAN II 











77477 


LIST 


SYN 


32575 










77452 


TABL 


SYN 


32554 










77453 


TOOMCH 


SYN 


LIST-20 










OOOOO 




ORG 





00000 





53400 


1 


OOOOO 


VR 


LXA 


0*1 


00001 





70000 


1 


00002 


SM 


CPY 


2*1 


00002 


1 


77777 


1 


00001 




TXI 


SM»lt-l 


00003 





00000 


1 


OOOOO 


TG 


HTR 


Otl 


00004 


-0 


76000 





00007 




LTM 




00005 





76200 





00321 


X 


RCD 




00006 





70000 


1 


77452 


RB 


CPY 


LIST-21U 


00007 


1 


77777 


1 


00006 


LB 


TXI 


RB»1*-1 


00010 





00000 





OOOOO 


R 






00011 


3 


77470 


1 


00005 




TXH 


X»l>-200 


00012 


-0 


53400 


1 


77715 




LXD 


M»l 


00013 


-o 


63400 


1 


77715 




SXD 


Mfl 


00014 





60000 





77453 




STZ 


LIST-20 


00015 





76200 





00321 


READ 


RCD 




00016 





70000 





OOOOO 




CPY 


VR 


0O017 





02000 





77500 




TRA 


TEST 


00020 





OOOOO 





00015 




HTR 


READ 


00021 





60O00 


2 


OOOOO 


END 


STZ 


0»2 


00022 


2 


00001 


2 


00021 




TIX 


END*2tl 


00023 





14000 





00024 




TOV 


PROG 


00024 





02000 





OOOOO 


PROG 


TRA 




00025 





OOOOO 





OOOOO 


T 






00026 





OOOOO 





00030 


S 




24 


00027 


+000000077777 


ADDRS 


OCT 


000000077777 










77500 




ORG 


LIST+1 


77500 





50000 





OOOOO 


TEST 


CLA 


VR 


77501 





70000 





00001 




CPY 


SM 


77502 


-0 


12000 





77626 




TMI 


PASS1 


77503 





10000 





00015 




TZE 


READ 


77504 





60000 





77777 




STZ 


PRTST 


775 05 


-0 


53400 


1 


OOOOO 




LXD 


VR»1 


77506 


-3 


00037 


1 


77516 




TXL 


REG»lt31 


77507 


3 


00040 


1 


OOOOO 




TXH 


0»1«32 


77510 





62100 





00025 




STA 


T 


77511 





40000 





00026 




ADD 


S 


77512 





62100 





00026 




STA 


s 


77513 





50000 





00001 




CLA 


SM 


77514 





62100 





77520 




STA 


u 


77515 





02000 





00015 




TRA 


READ 


77516 





62100 





00010 


REG 


STA 


R 


77517 





77100 





00017 




ARS 


15 


77520 


-0 


73400 


4 


OOOOO 


U 


PDX 


0*4 


77521 


-3 


00001 


4 


77524 




TXL 


NR 1 4 » 1 


77522 





07400 


2 


77611 




TSX 


LT»2 


77523 





62100 





00010 




STA 


R 


77524 


-0 


50000 





OOOOO 


NR 


CAL 


VR 


77525 





77100 





00022 




ARS 


16 


77526 





40000 





0O01O 




ADD 


R 



PREFIX IS 4 IF PROGRAM CARD 

SIGNAL END LOADING SEQUENTIAL PROG. CARDS 



u 



u 



77527 





62100 





77531 




STA 


TR 


77530 


-0 


53400 


2 


00000 




LXD 


VR»2 


77531 


-3 


00000 


2 


00000 


TR 


TXL 


0*2 


77532 





62100 





77577 




STA 


TA 


77533 





62100 





77601 




STA 


SA 


77534 





62100 





77572 




STA 


SD 


77535 





62100 





77566 




STA 


TD 


77536 





62100 





77543 


B 


STA 


CP 


77537 


-0 


50000 





00000 




CAL 


VR 


77540 


-3 


00001 


4 


77543 




TXL 


CP*4»1 


77541 


-0 


70000 





00007 




CAD 


LB 


77542 


-0 


70000 





00006 




CAD 


RB 


77543 


-0 


70000 


2 


ooooo 


CP 


CAD 


0*2 


77544 


2 


00001 


2 


77543 




TIX 


CP»2»1 


77545 


-3 


00000 


4 


77551 




TXL 


CT*4»0 


77546 


-3 


00001 


4 


00015 




TXL 


READ»4*1 


77547 


-3 


00002 


4 


77551 




TXL 


CT*4*2 


77550 


-3 


00003 


4 


77561 




TXL 


RL*4*3 


77551 





60200 





00000 


CT 


SLW 


VR 


77552 





50000 





00001 




CLA 


SM 


77553 





10000 





77557 




TZE 


RT 


77554 





40200 





00000 




SUB 


VR 


77555 





10000 





77557 




TZE 


RT 


77556 





42000 





00000 




HPR 




77557 


-3 


00001 


4 


00015 


RT 


TXL 


READ*4*1 


77560 


3 


00003 


4 


77642 




TXH 


SR»4*3 


77561 





56OO0 





00006 


RL 


LDQ 


RB 


77562 





50000 





00007 


DB 


CLA 


LB 


77563 


-0 


76300 





00001 




LGL 


1 


77564 





60200 





00007 




SLW 


LB 


77565 





12000 





77573 




TPL 


AB 


77566 





50000 


1 


00000 


TD 


CLA 


0*1 


77567 





77100 





00022 




ARS 


18 


77570 





07400 


2 


77604 




TSX 


CB»2 


77571 





76700 





00022 




ALS 


18 


77572 





62200 


1 


00000 


SD 


STO 


0*1 


77573 





50000 





00007 


AB 


CLA 


LB 


77574 


-0 


76300 





00001 




LGL 


1 


77575 





60200 





00007 




SLW 


LB 


77576 





12000 





77602 




TPL 


TV 


77577 





50000 


1 


00000 


TA 


CLA 


0*1 


77600 





07400 


2 


77604 




TSX 


CB»2 


77601 





62100 


1 


00000 


SA 


STA 


0*1 


77602 


2 


00001 


1 


77562 


TV 


TIX 


DB • 1 » 1 


77603 





02000 





00015 




TRA 


READ 


77604 





62100 





00010 


CB 


STA 


R 


77605 





50000 





00007 




CLA 


LB 


77606 


-0 


76300 





00001 




LGL 


1 


77607 





60200 





00007 




SLW 


LB 


77610 


-0 


12000 





77612 




TMI 


LTA 


77611 





76000 





00141 


LT 


SLN 


1 


77612 





50200 





00010 


LTA 


CLS 


R 


77613 





40000 





00025 




ADD 


T 


77614 





12000 





77622 




TPL 


ADDS 



WILL ADDRESS BE MISLEADING 

NO* CODE IS 10* TURN ON SENSE LIGHT 

DOES THIS ADDRESS REFER TO PROGRAM OR DATA 



77615 
77616 
77617 
77620 
77621 
77622 
77623 
77624 
77625 
77626 
77627 
77630 
77631 
77632 
77633 
77634 
77635 
77636 
77637 
77640 
77641 
77642 
77643 
77644 
77645 
77646 
77647 
77650 
77651 
77652 
77653 
77654 
77655 
77656 
77657 
77660 
77661 
77662 
77663 
77664 
77665 
77666 
77667 
77670 
77671 
77672 
77673 
77674 
77675 
77676 
77677 
77700 
77701 
77702 



76000 
02000 
50000 
40100 
02000 
76000 
02000 
40200 
02000 
73400 
00000 
40000 
40000 
62200 
40200 
62200 
36100 
40200 
77100 
00002 
07400 
53400 
50000 
10000 
50000 
60100 
50000 
60100 
00002 
50000 
60000 
60100 
53400 
00000 
50000 
60100 
50000 
62200 
62100 
40000 
62100 
73400 
00000 
50000 
40200 
73400 
75400 
77100 
10000 
34000 
50000 
76100 
60100 
40200 



00141 
77624 
00010 
77520 
00001 
00141 
77617 
00026 
00001 
00000 
77770 
77771 
77640 
77713 
77715 
77667 
00000 
77640 
00022 
77641 
77536 
77771 
77777 
77652 
00007 
77451 
00006 
77452 
77704 
00026 
77451 
77452 
00007 
77661 
77776 
77451 
00007 
77451 
00025 
00026 
00026 
00000 
00003 
77520 
00006 
00000 
00000 
00022 
77677 
00027 
00027 
00000 
00027 
00026 



DATA 

ADOS 

PROGRM 

PASS1 



DECTWO 
TXB 
SR 



0NLY1 



CLAS 



OVLP 



ACLA 



SLT 

TRA 

CLA 

ADM 

TRA 

SLT 

TR 

SU 

TRA 

PDX 

TXL 

ADD 

ADD 

STD 

SUB 

STD 

ACL 

SUB 

ARS 

TIX 

TSX 

LXD 

CLA 

TZE 

CLA 

STO 

CLA 

STO 

TIX 

CLA 

STZ 

STO 

LXD 

TXH 

CLA 

STO 

CLA 

STD 

STA 

ADD 

STA 

PAX 

TXH 

CLA 

SUB 

PAX 

PXD 

ARS 

TZE 

CAS 

CLA 

NOP 

STO 

SUB 



PROGRM 

R 

U 

1*2 

1 

DATA 

S 

1*2 

0*2 

PASS2*2*0 

TAG 

DECTWO 

STOP 

M 

OVLP 

VR 

DECTWO 

18 

TXB»2*2 

B*4 

TAGtl 

PRTST 

0NLY1 

LB 

TABL-1#1 

RB 

TABLfl 

NCARDS»1»2 

S 

TABL-1*1 

TABLfl 

LB* 4 

CLAS*4*0 

BTMASK 

TABL-1*1 

LB 

TABL-1U 

T 

S 

S 

0*2 

TG»2*0 

U 

RB 

0*4 

0*4 

18 

ACLA 

ADDRS 

ADDRS 

ADDRS 
S 



APPEARS TO BE DATA* BUT WHAT WAS CODE 
ACTUALLY PROGRAM* ADD CURRENT INCREMENT 
IS DATA REFERENCE* DECREMENT 



APPEARS TO BE PROGRAM* WHAT WAS CODE 
ACTUALLY IS DATA REFERENCE* DECREMENT 



- WORD COUNT IN DEC* OF AC 
WORD COUNT IS 0* GO TO 2ND PASS 

- LENGTH OF SYMB* TABLE IN DEC* 

TO ALLOW SPACE IN TABLE FOR LOC« + LENGTH 
STORE NEW LENGTH IN INST* TO STOP RELOC. 
ADDRS* TABLE + 1 - WORD COUNT + LENGTH TAB 
STORE LOWEST ADDRS* FOUND* TO COMPARE TO S 



FORCE IR 4 FOR CHECK SUM* BUT NOT RELOCATE 
LOAD OLD TABLE LENGTH 
HAS ANOTHER PROGRAM CARD PRECEEDED 
THIS ONE 

YES* LB HAS NAME* RB HAS 
ENTRY POINT 



SKIP* COMPARISONS ALREADY DONE 
STORE LOCATION OF TRA VECTOR IN 

SYMBOL TABLE* S HAS ADDRESS ONLY 



STORE LENGTH OF VECTOR IN 
SYMBOL TABLE 

STORE LENGTH OF ROUTINE IN T 
UPDATE S 

COMPARE S TO LOWEST ADDRESS OF TABLE 
TRA TG* TABLE ♦ INST. OVERLAP 
FIND LOWEST ADDRESS DATA WILL. USE 



<k-> 



u 



u 



r*\. 



77703 


-o 


12000 





77453 




TMI 


TOOMCH 


77704 


-0 


63400 


2 


77777 


NCARDS 


SXD 


PRTST*2 


77705 





60000 





00007 




STZ 


LB 


77706 


1 


00002 


1 


77707 




TXI 


LTTtl#2 


77707 





50000 


1 


77452 


LTT 


CLA 


TABL»1 


77710 





07400 


2 


77604 




TSX 


CBf2 


77711 





62100 


1 


77452 




ST A 


TABL»1 


77712 


1 


00002 


1 


77713 




TXI 


ST0P#1#2 


77713 


-3 


00000 


1 


77707 


STOP 


TXL 


LTT»ltO 


77714 


-0 


63400 


1 


77771 




SXD 


TA6»1 


77715 


-2 


77452 





00015 


M 


TNX 


READ*Q*TABL 


77716 


~0 


50000 


2 


77453 


VEC 


CAL 


TABL+1*2 


77717 


-0 


10000 





77723 




TNZ 


G3 


77720 





50000 


2 


77454 




CLA 


TABL+2«2 


77721 





62100 





00024 




STA 


PROG 


77722 





02000 





77770 




TRA 


PASS2 


77723 


-0 


32000 





77776 


63 


ANA 


BTMASK 


77724 


-0 


10000 





77770 




TNZ 


PASS2 


77725 





50000 


2 


77453 




CLA 


TABL+1»2 


77726 


-0 


73400 


4 


00000 


OLDU 


PDX 


0*4 


77727 





77100 





00022 




ARS 


16 


77730 





40000 


2 


77454 




ADD 


TA8L+2*2 


77731 





62100 





77736 




STA 


A 


77732 





62100 





77764 




STA 


AA 


77733 





62100 





77766 




STA 


AAA 


77734 





62100 





77741 




STA 


ABB 


77735 


-0 


53400 


1 


77771 


NXTVC 


LXD 


TAG*1 


77736 


-0 


50000 


4 


00000 


A 


CAL 


0*4 


77737 


-0 


32000 





77776 




ANA 


BTMASK 


77740 





10000 





77767 




TZE 


TIXVEC 


77741 





50000 


4 


ooooo 


ABB 


CLA 


0*4 


77742 





34000 


1 


77453 


NXTNAM 


CAS 


TABL+1»1 


77743 





02100 





77745 


TTR 


TTR 


G4 


77744 





02000 





77763 




TRA 


FIX 


77745 


2 


00002 


1 


77742 


G4 


TIX 


NXTNAM»1*2 


77746 





60100 





00006 


SAVNAM 


STO 


RB 


77747 


-0 


53400 


1 


77753 




LXD 


TWTY»1 


77750 





50000 


1 


77477 


CMPR 


CLA 


LIST»1 


77751 





10000 





77757 




TZE 


STONAM 


77752 





34000 





00006 




CAS 


RB 


77753 


-2 


00024 





77755 


TWTY 


TNX 


G2»O»20 


77754 





02000 





77767 




TRA 


TIXVEC 


77755 


2 


00001 


1 


77750 


G2 


TIX 


CMPR*1»1 


77756 





00000 





77770 




HTR 


PASS2 


77757 





50000 





00006 


STONAM 


CLA 


RB 


77760 





60100 


1 


77477 




STO 


LIST#1 


77761 





60000 


1 


77500 




STZ 


LIST+1*! 


77762 





02000 





77767 




TRA 


TIXVEC 


77763 





50000 





77743 


FIX 


CLA 


TTR 


77764 





60100 


4 


OOOOO 


AA 


STO 


0*4 


77765 





50000 


1 


77454 




CLA 


TABL+2#1 


77766 





62100 


4 


OOOOO 


AAA 


STA 


0»4 


77767 


2 


00001 


4 


77735 


TIXVEC 


TIX 


NXTVC»4»1 


77770 


1 


00002 


2 


77771 


PASS2 


TXI 


TAG»2»2 



TRA TOOMCH* DATA + INSTR* WILL OVERLAP 
SIGNAL TO SEQUENTIAL PROGRAM CARDS 
MAY COMPLEMENT IF 1 IS FOUND 
TO GET PAST LOC* + LENGTH OF VECTOR 

RELOCATE ENTRY POINTS IN TABLE 



SAVE LENGTH OF TABLE 



LENGTH OF VECTOR 

PLUS LOACTION OF VECTOR 

LENGTH OF SYMBOL TABLE 



LOOK FOR FIRST NAME IN TRA VECTOR 
IN SYMBOL TABLE 

LOOK AT NEXT NAME IN TABLE 



STORE IN FIRST EMPTY CELL 
IF NEW NAME 

ALREADY IN TABLE, IGNORE 

MORE THAN 20 ENTRIES TO BE SEARCHED FOR 



GET NEXT NAME IN VECTOR 
IR 2 IS AT BEG1NING 



{> 



'V 



CD L 



77771 -3 00000 2 

77772 50000 

77773 -0 10000 

77774 1 





77775 



00324 2 
00000 



TXL VEC*2»0 
CLA TABL+1 
TNZ SEARCH 
TXI END»2»212 



77716 TAG 

77453 

77775 

00021 

00014 SEARCH HTR READ-1 

77776 -300000000000 BTMASK OCT 700000000000 

77777 00000 00000 PRTST 

00000 * END 



IF ALL NAMES WERE FOUND 

CLEARS SYMBOL TABLE* LIST + LOADER 



u 



u 



n 



n 



1 
1 




FUl 




01303 
OOOOO 


LOCREC 


SYN 707 
ORG 






00000 





53400 


1 OOOOO 


A 


LXA Ofl 






00001 





70000 


1 00002 


B 


CPY 2#1 






00002 


1 


77777 


1 00001 


C 


TXI lflt-1 






00003 





00001 


OOOOO 


ONEDEC 


HTR 0*0*1 






00004 


-3 


77540 


1 00012 


RD 


TXL WEF1*1»-160 




00005 





76200 


00321 




RCD 






00006 





70000 


1 05642 


CPLODR 


CPY 3000-22 1-1 






00007 


1 


77777 


1 00006 




TXI CPLODR »1»-1 




00010 





00000 


00004 




HTR RO 






00011 





02000 


00004 




TRA RO 






00012 





77000 


00201 


WEF1 


WEF 1 






00013 


-0 


76000 


00012 




RTT 






00014 





76100 JO 00000 




NOP 






00015 





02000 05670 




TRA RCD 






00016 





00000 


00001 


ONE 


HTR 1 






0001 T 





00000 00036 


REC2 


HTR 30 






00020 





00000 


01303 


ERREC 


HTR LOCREC 






00021 





00000 


00OO1 


RDREC 


HTR 1 






00022 





00006 


OOOOO 


ROWOC 


HTR 0»0*6 






00023 





00000 00000 


REC 


HTR 






00024 





00000 


OOOOO 


ERAS 


HTR 






00025 





00006 


OOOOO 


WOC 


HTR QtO«6 






00026 





00000 


00006 


SIX 


HTR 6 






00027 





ooooo 


OOOOO 
05670 


TPCOMT 


HTR 
ORG 3000 






05670 





76200 


00321 


RCO 


RCD 






05671 





70000 OOOOO 




CPY A 






05672 





02000 


Q5674 




TRA TEST 






05673 





OOOOO 05670 




HTR RCD 






05674 





700O0 


ooooi 


TEST 


CPY B 






05675 





50000 


Q OOOOO 




CLA A 






05676 


-0 


12000 


05715 




TMI. CONCRD 






05677 





62100 


05705 




STA COPY 






05700 





77100 


00022 




ARS 18 






05701 





73400 


4 OOOOO 




PAX 0*4 






05702 





40200 


05705 




SUB COPY 






05703 





62100 


05705 




STA COPY 






05704 


-0 


50000 


OOOOO 




CAL A 






05705 


-0 


70000 


4 OOOOO 


COPY 


CAD 0»4 






05706 


2 


00001 


h 05705 




TIX C0PY»4»i 






05707 





6O2O0 


00002 




SLW C 






05710 





50000 


00001 




CLA B 






05711 





10000 


05670 




TZE RCD 






05712 





40200 


00002 




SUB C 






05713 





lopoo 


05670 




TZE RCD 






05714 





OOOOO 


05670 




HTR RCD 






05715 





70000 


00001 


CONCRD 


CPY B 






05716 





02000 


06101 




TRA END2 






05717 





50000 


00023 




CLA REC 






05720 





10000 


05741 




TZE NX 






05721 





50000 


OOOOO 




CLA A 





BOOTSTRAP FOR FIRST CARD 



COPY REST OF EDITOR INTO UPPER MEMORY 



TURN OFF INDICATOR 



REC NUMBER IN DIAG FILE* 1ST WORD OF REC 
WORD COUNT OF RECORD READ FROM TAPE 5 
REC NUMBER FROM NEW REC CARD 



MINUS IF NEW RECORD CARD 

SAVE ADDRESS OF FIRST INSTRUCTION 

WORD COUNT INTO IR 4 

ADD FIRST ADDRESS 

STORE BASE ADDRESS IN COPY LOOP 



IGNORE CHECK SUM 

8L OVER 9R» REST OF CARD IS IGNORED 

WILL BE REPLACED BY NOP 

INIT. 0* OR HAS NUMBER OF DIAG* REC* FROM 

LAST NEW REC. CARD» REMAINS IF WEF ONLY 

IS NEW CONTROL CARD WEF# 9L IS -0 



*>' 



05722 


-0 


10000 





05741 




05723 





02000 





05733 




05724 





07400 


4 


05777 


ALL 


05725 





50000 





00021 




05726 


-0 


12000 





05735 




05727 





50000 





00022 




05730 





62200 





00025 




05731 





50000 





06013 




05732 





62100 





06051 




05733 





07400 


4 


06046 


WTREC1 


05734 





02000 





05724 




05735 





77000 





00201 


END 


05736 





77200 





00201 




05737 





60000 





07777 




05740 





02000 





07777 




05741 





50000 





00000 


NX 


05742 





10000 





05733 




05743 





62100 





00023 




05744 





50000 





00021 


NX1 


05745 


-0 


12000 





05761 




05746 





40200 





00023 




05747 





12000 





05757 




05750 





50000 





00022 




05751 





62200 





00025 




05752 





50000 





06013 




05753 





62100 





06051 




05754 





07400 


4 


06046 




05755 





07400 


4 


05777 




05756 





02000 





05744 




05757 





10000 





05761 


NX3 


05760 





76400 





00205 




05761 





50000 





Ooooi 


NX4 


05762 





40000 





00016 




05763 





62100 





06051 




05764 





62100 





00024 




05765 





77100 





00022 




05766 





40200 





00024 




05767 





10000 





05774 




05770 





12000 





05774 




05771 





76700 





00022 




05772 





62200 





00025 




05773 





02000 





05670 




05774 





60000 





00022 


DELETE 


05775 





60000 





00025 




05776 





02000 





05670 




05777 





50000 





00021 


READ 


06000 


-0 


12000 





06033 




06001 





40200 





00016 




06002 


-0 


10000 





06005 




06003 





50000 





00017 




06004 





02000 





06006 




06005 





50000 





00020 


RD2 


06006 





62100 





06013 


RD3 


06007 





62100 





06031 





TNZ NX 
TRA WTREC1 
TSX READ.4 
CLA RDREC 
TMI END 
CLA RDWDC 
STD WDC 
CLA RDLOOP 
STA WTLOOP 
TSX WRITE.4 
TRA ALL 
WEF 1 
REW 1 
ST2 4095 
TRA 4095 
CLA A 
TZE WTREC1 
STA REC 
CLA RDREC 
TMI NX4 
SUB REC 
TPL NX3 
CLA RDWDC 
STD WDC 
CLA RDLOOP 
STA WTLOOP 
TSX WRITE.4 
TSX READ* 4 
TRA NX1 
TZE NX4 
BST 5 
CLA B 
ADD ONE 
STA WTLOOP 
STA ERAS 
ARS 18 
SUB ERAS 
TZE DELETE 
TPL DELETE 
ALS 18 
STD WDC 
TRA RCD 
STZ RDWDC 
STZ WDC 
TRA RCD 
CLA RDREC 
TMI OUT 
SUB ONE 
TNZ RD2 
CLA REC2 
TRA RD3 
CLA ERREC 
STA RDLOOP 
STA SETREC 



WRITE CURRENT BUFFER 

YES* END OF CHANGES* HAS ALL OF MASTER 

BEEN WRITTEN. RDREC WILL BE - 

NO. READ IN NEXT RECORD FROM MASTER 



WRITE ON NEW TAPE 

AND GET NEXT FROM MASTER 



IF ONLY THIS PROGRAM AND WEF CARD 

WRITE ALL OF MASTER WITHOUT CHANGES 

OTHERWISE SAVE NEW RECORD NUMBER 

GET NUMBER OF REC LEFT IN CORES BY READ 

MINUS IF NO MORE RECORDS ON MASTER 

IS RECORD IN CORE THE ONE CALLED FOR 

NOT YET. WRITE CORE RECORD ON NEW TAPE 



BRING NEXT RECORD FROM MASTER AND 
TEST AGAINST NEW RECORD CARD 
IF CORRECT REC. SET WORD COUNT ETC. 
READ 1 TOO MANY. SOME REC DELETED 

ADD 1 TO LAST ADDRESS FOR WRITE LOOP 



IF LAST ADDRESS NOT GREATER THAN 
•FIRST ADDRESS DELETE THIS REC WHEN COPYING 
MASTER 



HAS END OF FILE BEEN REACHED 

IF 1ST RECORD STILL IN CORE. SET 

ADDRESS TO READ IN 2ND RECORD 



3RD. 4TH ETC. ADDRESS IS LOCREC IN REC 2 



4 t 



u 



(J 



,n 



n 



06010 


60000 





00027 




STZ 


TPCONT 


06011 


-0 53400 


2 


00016 


R0A6IN 


LXD 


ONE* 2 


06012 


76200 





00225 




RTB 


5 


06013 


70000 


2 


00037 


RDLOOP 


CPY 


31*2 


06014 


1 77777 


2 


06013 




TXI 


RDLOOP* 2 »-l 


06015 


02000 





06034 




TRA 


SETEOF 


06016 


76600 





00333 




100 




06017 


•0 76000 





00012 




RTT 




06020 


02000 





06037 




TRA 


BSTP5 


06021 


-0 75400 


2 


00000 


FXWDC 


PXD 


0*2 


06022 


76000 





00006 




COM 




06023 


40000 





00003 




ADO 


ONEDEC 


06024 


62200 





00022 




STD 


RDWDC 


06025 


77100 





00022 




ARS 


18 


06026 


76000 





00003 




5SP 




06027 


40000 





06013 




ADO 


RDLOOP 


06030 


62100 





06O13 




STA 


RDLOOP 


06031 


50000 





00000 


SETREC 


CLA 





06032 


62100 





00O21 




STA 


RDREC 


06033 


02000 


4 


00001 


OUT 


TRA 


1*4 


06034 


-0 76000 





00003 


SETEOF 


SSM 




06035 


60100 





00021 




STO 


ROREC 


06036 


02000 


4 


00001 




TRA 


1*4 


06037 


-0 53400 


1 


00027 


BSTP5 


LXD 


TPCONT *1 


06040 


-3 00017 


1 


06042 




TXL 


TRABST* 1*15 


06041 


00000 





06021 




HTR 


FXWDC 


06042 


76400 





00205 


TRABST 


BST 


5 


06043 


1 00001 


1 


06044 




TXI 


MM*1*1 


06044 


-0 63400 


1 


00027 


MM 


SXD 


TPCONT *1 


06045 


02000 


06011 




TRA 


RDAG1N 


06046 


-0 53400 


2 


00025 


WRITE 


LXD 


WDC»2 


06047 


-3 00000 


2 


06053 




TXL 


WTOUT* 2*0 


06050 


76600 





00221 




WTB 


I 


06051 


70000 


2 


00037 


WTLOOP 


CPY 


31*2 


06052 


2 O0OO1 


2 


06051 




TIX 


WTLOOP »2»1 


06053 


02000 


4 


00001 


WTOUT 


TRA 


1*4 


06054 


76200 





00225 


ISDIAG 


RTB 


5 


06055 


70000 





06101 




CPY 


RTB1+1 


06056 


02000 





06054 




TRA 


ISDIAG 


06057 


76200 





00225 




RTB 


5 


06060 


53400 


2 


00026 




LXA 


SIX*2 


06061 


70000 


2 


00037 


ISCP 


CPY 


31*2 


06062 


2 00001 


2 


06061 




TIX 


ISCP*2*1 


06063 


76100 





00000 


NOP 


NOP 




06064 


50000 





00031 




CLA 


25 


06065 


40200 





06077 




SUB 


TEST1 


06066 


-0 10000 





06072 




TNZ 


TST1 


06067 


50000 





00032 




CLA 


26 


06070 


40200 





06100 




SUB 


RTB1 


06071 


10000 





06074 




TZE 


TST2 


06072 


-0 76000 





00003 


TST1 


SSM 




06073 


60100 





00021 




STO 


RDREC 


06074 


50000 





06063 


TST2 


CLA 


NOP 


06075 


60100 





05716 




STO 


CONCRD+1 



IE** ZERO 



RECOMPLIMENT WORD COUNT 
AND FIND BASE ADDRESS 



ADD WORD COUNT TO FIRST ADDR*ESS 

FIRST WORD OF RECORD HAS RECORD NUMBER 

SET RDREC - IF END OF MASTER FILE 



PRESS START TO ACCEPT 



WORD COUNT ZERO TO DELEfE RECORD 



SPACE OVER LIBRARY 



IF MASTER FILE DOES NOT HAVE DIAG«* 
SET READ TO IGNORE. OTHERWISE 
FIRST RECORD WILL BE IN CORES 



«k1 



TD 



06076 
06077 
06100 
06101 
06102 



02000 
00000 
76200 
76200 
02000 



05717 

00001 TEST1 
00221 RTB1 
00225 END2 
06054 
00000 



TRA C0NCRD+2 



TXH 

RTB 
RTB 



SPACE OVER END FILE GAP AT END FILE 2 



TRA ISDIAG 
END 



0:/ 



u 



u 



n 



o 



REM .EXAMPLE OF DIAGNOSTIC CALLER FOR 704 FORTRAN II 

EXAMPLE OF DIAGNOSTIC CALLER FOR 704 FORTRAN II 

RECNBR IS SYNONYMOUS WITH THE NUMBER OF THE RECORD TO* WHICH 
THE DIAGNOSTIC CALLER PERTAINS. REC*»* IS THE FORTRAN RECORD 
NUMBER ASSIGNED TO THE DIAGNOSTIC CALLER. 

BEGIN IS SYNONYMOUS WITH THE LOAD ADDRESS OF THE DIAGNOSTIC 
CALLER. BEG**** HAS THE SAME VALUE AS BEGIN. 



FORCE NEW MASTER RECORD 
CARD FOR EDITOR* NEEDS 
9 ROW* COL. 3 PUNCH 
CALL DIAG FROM FILE * 



* FItES TO BE SPACED OVER 
TO 2047 WRITTEN ON DRUM 4 

NEXT TIME LOOP WILL COPY INTO 25 
UNTIL END OF RECORD SKIP 
IGNORE RECORD NUMBER 

SPACE OVER RECORDS IN THIS FILE 

HAVE ALL 3 FILES BEEN SPACED OVER 

NO* GO BACK TO A 

YES* READ IN MAIN DIAGNOSTIC 











00000 


RECNBR 


SYN 


#** 










00000 


BEGIN 


SYN 


**•* 










00000 




ORG 





00000 





00000 





00000 




HTR 


BEGIN*0*BEGIN 


00001 





00000 





00021 
00000 




HTR 
ORG 


STOP 
BEGIN 


00000 


-0 


63400 


2 


00000 




SXD 


0*2 


00001 


-0 


53400 


1 


00014 




LXD 


MEM«1 


00002 


-0 


53400 


2 


00012 




LXD 


FILTST*2 


00003 





76600 





00304 




WDR 


4 


0OO04 





70000 


1 


04000 


COPY 


CPY 


2048*1 


00005 


2 


00001 


1 


00004 




TIX 


COPY* 1*1 


00006 


1 


03746 


1 


00010 




TXI 


A»l«2022 


00007 





02000 





00032 




TRA 


26 » 


00010 





76200 





00221 


A 


RTB 


1 


00011 





70000 





00000 




CPY 


BEGIN 


00012 


-2 


00003 





00010 


FILTST 


TNX 


A*0*3 


00013 





02000 





00015 




TRA 


B 


00014 





04000 





00000 


MEM 


HTR 


RECNBR »0* 2048 


00015 


2 


00001 


2 


00010 


B 


TIX 


A*2*l 


00016 





50000 





00014 




CLA 


MEM 


00017 





62100 





00002 




STA 


2 


00020 





76200 





00221 




RTB 


1 


00021 





02000 





00004 

ooooo 


STOP 


TRA 
END 


COPY 



REC *** 
BEG **** 

MR 1 
MR 2 
MR 3 
CD1 



CD1 
CD1 
CD1 
CD1 
CD1 
CD1 
CDl 
CD1 



CDl 10 
CDl 11 
CDl 12 
CDl 13 
CDl 14 
CDl 15 
CDl 16 
CDl 17 
CDl 18 
CDl 19 
CDl 20 



<jfi 



















1 




ORG 1 








FORCE 


NEW RECO 


1 








00001 




ORG 


1 




OOOOl 


00031 





00036 
00031 




HTR 
ORG 


X-l»0»25 
25 


TO 


00031 


3 00000 





00001 




TXH 


1 




00032 


76200 





00221 




RTB 


1 




00033 


-0 53400 


1 


00036 




LXD 


ZER0»1 




00034 


70000 


1 


00036 


CP 


CPY 


30*1 




00035 


1 77777 


1 


00034 




TXI 


CP*1»-1 




00036 


00000 





00000 


ZERO 


HTR 





A 


00037 


00000 





00000 
00000 


X 


END 





FORCE NEW RECORD 
CARD FOR DE 

READ IN REST OF DIAGNOSTIC 

READ INTO 30« TABLE SEARCH AND ALL 

CONVERTING + PRINT ETC* ROUTINES 

END RECORD SKIPf EXIT TO 31 
RECORD NUMBER OF NEXT COPIED HERE 



f' ,: 



u 



o 



o 



n 



TD 





ORG 2 






FORCE 


NEW RECORD 








00002 


ORG 


2 


00002 


00036 





03630 


HTR 


XZY-1»0»30 








00036 


ORG 


30 


00036 


3 00000 





00002 


TXH 


2 




, 




77777 


LIST SYN 


32767 


GOO 3 7 


53400 


1 


01227 


LXA 


ADDMSK»1 


00040 


-0 75400 


1 


00000 


PXD 


Otl 


00041 


40000 





01233 


ADO 


DECONE 


00042 


60100 





01234 


STO 


PREFX1 


00043 


-0 75400 


4 


00000 


PXD 


0*4 


00044 


40200 





01234 


SUB 


PREFX1 


00045 


62200 





01235 


STD 


ERWORD 


00046 


76600 





00361 


WPR 




00047 


76000 





00367 


SPR 


7 


00050 


07400 


4 


00740 


TSX 


PRINTt4 


00051 


00172 





00155 


HTR 


PR1»0»PR1+13 


00052 


76600 





00361 


WPR 




00053 


76600 





00361 


WPR 




00054 


76600 





00361 


WPR 




00055 


76600 





00361 


WPR 




00056 


7610O 





00000 


NOP 




00057 


76100 





00000 


NOP 




00060 


50000 





00002 


CLA 


2 


00061 


-0 32000 





01227 


ANA 


ADDMSK 


00062 


60100 





01236 


STO 


RECORD 


00063 


40200 





00220 


SUB 


TW13 


00064 


-0 10000 





00070 


TNZ 


NOTNA 


00065 


07400 


4 


00740 


TSX 


PRINT»4 


00066 


00220 





00205 


HTR 


ISNONA»0»ISNONA+11 


00067 


02000 





00117 


TRA 


SEARCH-1 


00070 


50000 





01236 


NOTNA CLA 


RECORD 


00071 


07400 


<* 


00676 


TSX 


BINDEC»4 


00072 


07400 


4 


00602 


TSX 


LA JUST »4 


00073 


60200 





00204 


SLW 


FOREC 


00074 


07400 


4 


00740 


TSX 


PRINT»4 


00075 


00205 





00172 


HTR 


PR2»0«F0REC+1 


00076 


50000 





01235 


CLA 


ERWORD 


00077 


77100 





00022 


ARS 


18 


00100 


07400 


4 


00730 


TSX 


0CTBCD#4 


00101 


60200 





01257 


SLW 


ERAS 


00102 


-0 50000 





01255 


CAL 


L0C+3 


00103 


77100 





00030 


ARS 


24 


00104 


56000 





01257 


LDQ 


ERAS 


00105 


-0 76300 





00030 


LGL 


24 


00106 


60200 





01255 


SLW 


LOC+3 


00107 


-0 76300 





00014 


LGL 


12 


00110 


56000 





00717 


LDQ 


BLANKS 


00111 


-0 76300 





00030 


LGL 


24 


00112 


60200 





01256 


SLW 


LOC+4 


00113 


07400 


4 


00740 


TSX 


PRlNTt4 


00114 


01257 





01252 


HTR 


LOC»0#LOC+5 


00115 


76600 





00361 


WPR 




00116 


76600 





00361 


WPR 





FORCE NEW RECORD 
CARD FOR DE 

MAIN RECORD 

FIND NUMBER TO SUBTRACT FROM TSX 

TO GET ORIGINAL LOCATION 

THIS WILL BE USED TO RE-COMPLIMENT ANY 

OF THE TSX S TO THE DIAGNOSTIC 

IR 4 HAS BEEN SET BY TSX 



TEST FOR SAP BOARD 
PRINT TITLE 



LOO 2 HAS NUMBER OF FORTRAN RECORD 
PRECEDING THE CALL IN OF THE DIAG. 

IF NON-ARITHMETIC HAS CALLED DIAG 
PRINT OTHER HEADER 



CONVERT TO BCD + LEFT ADJUST WORD 



PRINT NUMBER OF RECORD IN WHICH 
ERROR FOUND 
IN DECREMENT 



PRINT LOCATION OF STOP 



o) 



00117 -0 53400 4 02346 

00120 50000 4 02346 

00121 34000 01235 

00122 02000 00124 

00123 02000 00130 

00124 2 00002 4 00120 

00125 02000 00137 

00126 76100 00000 

00127 76100 00000 

00130 50000 4 02347 

00131 -0 12000 00145 

00132 -0 73400 4 00000 

00133 2 00003 4 00134 

00134 76200 00221 

00135 70000 00031 

00136 2 00001 4 00134 

00137 -0 53400 4 01232 

00140 76200 00221 

00141 70000 4 01303 

00142 1 77777 4 00141 

00143 76100 00000 

00144 02000 01304 

00145 -0 32000 01227 

00146 34000 01236 

00147 02000 00151 

00150 02000 00153 

00151 2 00002 4 00120 

00152 02000 00137 

00153 50000 4 02347 

00154 02000 00132 

00155 606060606060 

00156 606060606060 

00157 606060606060 

00160 606060606060 

00161 606060606060 

00162 606060606060 

00163 606060606060 

00164 264651635121 

00165 456024312127 

00166 454662633123 

00167 604751462751 

00170 214460512562 

00171 644363626060 

00172 606060606060 

00173 606060606060 

00174 255151465160' 

00175 663031432560 

00176 234644473143 

00177 314527603145 

00200 602646516351 

00201 214560512523 

00202 465124604564 

00203 442225516060 

00204 00000 00000 



SEARCH 

TIXA 

HAVE 

PD 

RTBA 

LXDA 
CPYREC 
NOP 
DUP 

NOTREC 
HAVREC 
PR1 



LXD 
CLA 
CAS 
TRA 
TRA 
TIX 
TRA 
NOP 
NOP 
CLA 
TMI 
PDX 
TIX 
RTB 
CPY 
TIX 
LXD 
RTB 
CPY 
TXI 
NOP 
TRA 
ANA 
CAS 
TRA 
TRA 
TIX 
TRA 
CLA 
TRA 
BCD 



ERLIST*4 

ERLIST»4 

ERWORD 

TIXA 

HAVE 

SEARCH »4»2 

LXDA 



ERLIST+1#4 

DUP 

0*4 

RTBA»4*3 

1 

25 

RTBA»4»1 

ZERO #4 

1 

L0CREC»4 

CPYREC»4*-1 

LOCREC+1 

ADDMSK 

RECORD 

NOTREC 

HAVREC 

SEARCH*4*2 

LXDA 

ERLIST+1»4 

PD 

7 



ASSORTED TSX IN DEC FIELD 
OF FIRST WORD OF LIST 



UNIDENTIFYABLE* BRING IN RECORD ZERO 



DUPLICATE STOPS SHOULD 8E MARKED MINUS 
SECOND WORD HAS NUMBER OF RECORDS 
TO BE SPACED OVER BEFORE READING 
REDUCE NUMBER IF NOT REC 1* NOW SAME AS 
EDITOR RECORD NUMBER 



END RECORD SKIP WILL CONTROL 
COPY AND TRANSFER 

SKIP RECORD NUMBER 

2ND WORD WILL HAVE CORRECT ERROR RECORD 
NUMBER IN ADDRESS* FOR CORRECT FORTRAN 
RECORD NUMBER IN THE CASE OF 
DUPLICATE STOPS* 

IF END OF LIST* PRINT REC. ZERO 



PR2 



BCD 6F0RTRAN DIAGNOSTIC PROGRAM RESULTS 



BCD 2 

BCD 8ERR0R WHILE COMPILING IN FORTRAN RECORD NUMBER 



FOREC HTR 



f, 1 1/ 



u 



u 



n 



n 



00205 
00206 
00207 
00210 
00211 
00212 
00213 
00214 
00215 
00216 
00217 
00220 
00221 
00222 
00223 
00224 
00225 
00226 
00227 
00230 
00231 
00232 
00233 
00234 
00235 
00236 
00237 
00240 
00241 
00242 
00243 
00244 
00245 
00246 
00247 
00250 
00251 
00252 
00253 
00254 
00255 
00256 
00257 
00260 
00261 
00262 
00263 
00264 
00265 
00266 
00267 
00270 
00271 
00272 



606060606060 
606060606060 
255151465160 
264664452460 
246451314527 
606223214560 
462660632122 
432562602346 
444731432524 
602270600160 
475131442533 
00000 00325 

-0 53400 2 00000 
50000 00314 
60100 00000 
50000 00315 
60100 00001 
50000 00316 
60100 00002 
50000 00674 
10000 00235 
76600 00361 
07400 4 00740 
00505 00463 
76600 00361 
76600 00361 
76600 00361 
76600 00361 
77200 00202 
77200 00201 
76100 00000 
76100 00000 
76000 00166 
02000 00251 
50000 00304 
60100 00261 
76200 00221 
70000 01257 
02000 00251 
76200 00221 
76100 00000 
07400 4 00740 
00360 00320 
07400 4 00740 
00376 00360 
76600 00361 

+076000000140 
76600 00361 
76000 00362 
76600 00333 

-0 76000 00012 
76100 00000 
02000 03534 
50000 00317 



ISNONA BCD 2 

BCD 9ERROR FOUND DURING SCAN OF TABLES COMPILED BY 1 PRIME. 



TW13 
DIGRTN 



RESTRT 



WPREND 



SIXTST 

SPACE1 
SKIP 

PRNT1 

DONE 
SPEND 



HTR 
LXD 
CLA 
STO 
CLA 
STO 
CLA 
STO 
CLA 
TZE 
WPR 
TSX 
HTR 
WPR 
WPR 
WPR 
WPR 
REW 
REW 
NOP 
NOP 
SWT 
TRA 
CLA 
STO 
RTB 
CPY 
TRA 
RTB 
NOP 
TSX 
HTR 
TSX 
HTR 
WPR 
OCT 
WPR 
SPR 
IOD 
RTT 
NOP 
TRA 
CLA 



213 

0*2 

CPDR 



TIXO 

1 

HTR4 

2 

PRTEST 

WPREND 

PRINT#4 
NEARBT»0»NEARBT+18 



RESET MEMORY 

LOOP AT LOC. Otl AND 2 WILL 
COPY 2045 WORDS FROM DRUM 4 
BEGINNING AT LOC* 3 



SHOULD POOTNOTE BE PRINTED 
YES 



6 

SPACE 1 

PRALT 

PRNT1 

1 

ERAS 

SPACE1 

1 



REWIND SO PROBLEM CAN BE RE-RUN 
J CANNON 

SHOULD CHOICE TO NEXT BATCH BE PRINTED 

NO 
SURE 

SPACE OVER FIRST FILE IN SYSTEM 
OVER REC It FILE 2t OUR TRA 4» THEIR WHO KNOWS 



PRINTt4 
END»0«END+32 
PRINT** 
ENDl»0tENDl+14 

076000000140 

2 



ENDPCH 
BST1 



TURN OFF ALL SENSE LIGHTS 
EJECT SHEET 

BACKSPACE OVER FILE MARK 



r> l < 



00273 60100 00254 

00274 60100 00255 

00275 76000 00166 

00276 02000 00305 

00277 50000 00311 

00300 60100 00261 

00301 500Q0 00143 

00302 60100 00245 

00303 02000 00221 

00304 03631 03540 

00305 50000 00143 

00306 60100 00260 

00307 60100 00261 

00310 02000 00301 

00311 00417 00376 

00312 00463 00417 

00313 03775 00003 

00314 70000 4 04000 

00315 2 00001 4 00000 

00316 02000 00004 

00317 76400 00201 

00320 606060606060 

00321 606060606060 

00322 606060606060 

00323 606060606060 

00324 606060606060 

00325 606060606060 

00326 606060606060 

00327 254524604626 

00330 602431212745 

00331 466263312360 

00332 475146275121 

00333 446051256264 

00334 436362336060 

00335 606060606060. 

00336 606060606060 

00337 606060606060 

00340 606060606060 

00341 606060606060 

00342 606060606060 

00343 606060606060 

00344 606060606060 

00345 606060606060 

00346 606060606060 

00347 606060606060 

00350 606060606060 

00351 606060606060 

00352 606060606060 

00353 475146275121 

00354 446023214545 

00355 466360222560 

00356 234645633145 

00357 642524336060 
00360 606060606060 



FX6TST 



PRALT 

NOWP 



PRNT2 

PRNT4 

DRUM 

CPDR 

TIXO 

HTR4 

BST1 

END 



STO SKIP 

STO SKIP+1 

SWT 6 

TRA NDWP 

CLA PRNT2 

STO PRNT1 

CLA NOP 

STO SIXTST 

TRA DIGRTN 

HTR MACEN»0#MACEN+57 

CLA NOP 

STO PRNT1-1 

STO PRNT1 

TRA FX6TST 

HTR END2»0»END2+17 

HTR END3»0»END3+36 

HTR 3»0#2045 

CPY 2048 »4 

TIX 0»4»1 

TRA 4 

BST 1 

BCD 7 



AND OVER SOURCE ERROR RECORD 



DO NOT PRINT A LAST COMMENT 



MAY CONTINUE NEXT BATCH 



BCD END OF DIAGNOSTIC PROGRAM RESULTS. 



BCD 



END1 



BCD 5PR0GRAM CANNOT BE CONTINUED. 



BCD 7 



<■/ 



o 



u 



n 



n 



00361 606060606060 

00362 606060606060 

00363 606060606060 

00364 606060606060 

00365 606060606060 

00366 606060606060 

00367 475125626260 

00370 626321516360 

00371 312660704664 

00372 606631623060 

00373 634660512540 

00374 516445604751 

00375 462243254433 

00376 606060606060 

00377 606060606060 

00400 606060606060 

00401 606060606060 

00402 606060606060 

00403 606060606060 

00404 606060606060 

00405 633025606270 
Q0406 626325446066 
00407 314343602346 

00410 456331456425 

00411 602221632330 

00412 602346444731 

00413 433145276060 

00414 6060606Q6060 

00415 606060606060 

00416 606060606060 

00417 606060606060 

00420 606060606060 

00421 606060606060 

00422 606060606060 

00423 606060606060 

00424 606060606060 

00425 606060606060 

00426 475125626260 
00*27 626321516360 
00430 312660704664 
00*31 606631623060 
00432 634660234645 
00^33 633145642560 

00434 222163233060 

00435 234644473143 

00436 314527736046 

00437 516042257060 

00440 314560000706 

00441 000000600000 

00442 000104017360 

00443 606060606060 

00444 606060606060 

00445 606060606060 

00446 606060606060 



BCD 7PRESS START IF YOU WISH TO RE-RUN PROBLEM. 



END 2 BCD 7 



BCD THE SYSTEM WILL CONTINUE BATCH COMPILING 



ENDS BCD 7 



BCD PRESS START IF YOU WISH TO CONTINUE BATCH COMPILING* OR K.E* 



BCD IN 076000 000141, 



00447 
00450 
00451 
00452 
00453 
00454 
00455 
00456 
00457 
00460 
00461 
00462 
00463 
00464 
00465 
00466 
00467 
00470 
00471 
00472 
00473 
00474 
00475 
00476 
00477 
00500 
00501 
00502 
00503 
00504 
00505 
00506 
00507 
00510 
00511 
00512 
00513 
00514 
00515 
00516 
00517 
00520 
00521 
00522 
00523 
00524 
00525 
00526 
00527 
00530 
00531 
00532 
00533 
00534 



606060606060 
606060606060 
606060606060 
214524604751 
256262606263 
215163603126 
607046646066 
316230606346 
605125405164 
456047514622 
432544336060 
606060606060 
606060606060 
546063303162 
606263216325 
442545636030 
216260454660 
264651446443 
216045644422 
255133606063 
302560264651 
446443216045 
644422255160 
216262312745 
252460216045 
253127302246 
513145276062 
632163254425 
456360316260 
273165254533 
■0 63400 4 00531 



BCD 9AND PRESS START IF YOU WISH TO RE-RUN PROBLEM* 



50000 

77100 

32000 

07400 

60200 

50000 

32000 

07400 

07400 

60200 

50000 

07400 

60200 

07400 

O0543 

53400 

02000 

00000 

00000 

00000 
606060606060 
606060606060 
606060606060 



00527 
00022 
01227 
00613 
00536 
00527 
01227 
00613 
00602 
00540 
00530 
00543 
00542 
00740 
00532 
00531 
00001 
00000 
00000 
00000 



NEARBT BCD 
BCD 



* THIS STATEMENT HAS NO FORMULA NUMBER* THE FORMULA NUMBER 



BCD 7ASSTGNED A NEIGHBORING STATEMENT IS GIVEN. 



FX4PR SXD 
CLA 
ARS 
ANA 
TSX 
SLW 
CLA 
ANA 
TSX 
TSX 
SLW 
CAL 
TSX 
SLW 
TSX 
HTR 
LXD 
TRA 
ALFBET HTR 
SYM HTR 
IR4 HTR 
PRDO BCD 



IR4*4 

ALFBET 

18 

ADDMSK 

EXBETA»4 

DOALF 

ALFBET 

ADDMSK 

EXBETA»4 

LAJUST»4 

DOBET 

SYM 

ZER0UT»4 

DOSYM 

PRINT#4 

PRD0»0»PRDO+9 

IR4»4 

1#4 



THIS ROUTINE PRINTS ALPH DO BETA FOR I 
GETS ALPHA* OR NEAREST PRECEDING ALPHA* 
AND BETA FROM WORD ALFBET* SYMBOL 
FROM WORD SYM 

BLANKS ARE TO RIGHT OF WORD 



ADJUST FOR TRAILING BLANKS 



UNPACK WORD 



C<[% 



(J 



U 



n 



n 



00535 
00536 
00537 
00540 
00541 
00542 
00543 
00544 
00545 
00546 
00547 
00550 
00551 
00552 
00553 
0O554 
©0555 
00556 
00557 
00560 
00561 
00562 
00563 
00564 
00565 
00566 
00567 
00570 
00571 
00572 
00573 
00574 
00575 
00576 
00577 
00600 
00601 
00602 
00603 
00604 
00605 
00606 
00607 
00610 
00611 
00612 



606060606060 

00000 00000 DOALF 

606024466060 

00000 00000 OOBET 

602646516060 

O 00000 00000 DOSYM 
-0 63400 4 00563 ZEROUT 
-0 53400 4 00564 

60200 00562 ZER1 
-0 32000 01231 
-0 10000 0*00553 
•0 50000 00562 

77100 00006 

2 00001 4 00545 

•0 50000 00562 ZER2 

56000 00717 

3 00003 4 00560 ZER3 
•0 76300 00006 

1 00001 4 00555 

•0 53400 4 00563 ZER4 

02000 4 00001 

00000 00000 ZER5 

00000 00000 ZER6 

00006 00000 SIX 

60200 00577 RAJUST 
•0 32000 01231 

40200 00600 
*0 10000 00575 
-0 50000 00577 

77100 00006 

36100 00601 

02000 00565 
•0 50000 00577 

02000 4 00001 

00000 00000 

000000000060 

600000000000 

56000 00612 

14000 00604 
-0 76300 00001 
-0 14000 00610 
•0 7630C 00005 

02000 00603 

77100 OOOOl 

02000 4 00001 



RAJ2 

RAJ1 

01BLNK 

RBLNK 

LAJUST 

LAJ1 

LAJ2 



00613 
00614 



606060606000 



77013 
76700 00022 
62200 00675 



LAJ3 
BLNKO 



TEIFIN 
EXBETA 



HTR 

BCD 1 DO 

HTR 

BCD 1 FOR 

HTR 

SXD ZER6»4 

LXD SIX*4 

SLW ZER5 

ANA CHMASK 

TNZ ZER2 

CAL ZER5 

ARS 6 

T1X ZER1,4*1 

CAL ZER5 

LDQ BLANKS 

TXH ZER4»4*5 

L6L 6 

TXI ZER3»4*1 

LXD ZER6»4 

TRA 1*4 

HTR 

HTR 

HTR OtQ*6 

SLW RAJ1 

ANA CHMASK 

SUB 01BLNK 

TNZ RAJ2 

CAL RAJ1 

ARS 6 

ACL RBLNK 

TRA RAJUST 

CAL RAJ1 

TRA 1»4 

HTR 

BCD 100000 

BCD 1 00000 

LDQ BLNKO 

TOV LAJ2 

L6L 1 

TNO LAJ3 

LGL 5 

TRA LAJ1 ^ n 

ARS 1 FIRST BIT FROM BACK TO P 

1# 4 EXIT TRAILING BLANKS»MUST BE SAVED WITH SLW 

I o WILL STOP ROUTINE IF WORD IS ALL BLANKS* 

ENTER WITH INTERNAL FORMULA NUMBER IN ADDRESS OF AC 

EXIT WITH EXTERNAL FORMULA NUMBER* OR NEAREST PRECEDING 

EXTERNAL FORMULA NUMBER, IN BCD IN LOGICAL PORTION • 

OF AC# THIS MUST BE SAVED WITH SLW. NUMBER WILL 

BE FOLLOWED BY ASTERISK WHEN EXACT MATCH IS NOT FOUND 

SYN LIST-500 

ALS 18 

STD BETAEX 



ENTER CAL- BCD WORD WHICH FORTRAN HAS STORED 
LEFT ADJUSTED* FOLLOWED BY 1 BLANK AND 
PADDLED OUT WITH ZEROS 
IE.* OCT 000000000077 

LAST CHARACTER WAS ZERO 
SHIFT OUT OF AC 



NOW SHIFT IN A BLANK FOR EVERY TAKEN OUT 

LEAVE ♦ BCD AND BLANKS* MUST BE SAVED 
WITH SLW 



ENTER* CAL BCD, LEFT ADJUSTED PLUS BLANKS 
IE** OCT 000000000077 

YES* MOVE WORD AND ADD BLANK AT FRONT 
IS LAST CHARACTER A BLANK 



LEAVES AC WITH LEADING BLANKS* MUST BE 
SAVED WITH SLW 



ENTER* CAL BCD NUMBER, LEADING BLANKS 
TURN OFF INDICATOR 

NUMBER HAS ZERO ZONE, BLANK WILL TURN 
ON INDICATOR 



TRA 
BCD 



'ill 



D L 



00615 


-0 


63400 


4 


00671 




SXD 


XB10»4 


00616 


-0 


53400 


4 


00640 




LXD 


INC0R*4 


00617 


3 


00000 


4 


00644 




TXH 


XB4*4»0 


00620 





77200 





00202 




REW 


2 


00621 





53400 


4 


00671 




LXA 


X810»4 


00622 





76200 





00222 


XB1 


RTB 


2 


00623 





70000 





77012 




CPY 


TEIFIN-1 


00624 





02000 





00622 




TRA 


XB1 


00625 


2 


00001 


4 


00622 




TIX 


XB1»4«1 


00626 





53400 


4 


00640 




LXA 


INC0R»4 


00627 





76200 





00222 


XB2 


RTB 


2 


00630 





70000 





77012 




CPY 


TEIFIN-1 


00631 


2 


00001 


4 


00627 




TIX 


XB2»4»1 


00632 


-0 


53400 


4 


01232 




LXD 


2ER0»4 


00633 





76200 





00222 




RTB 


2 


00634 





70000 





77012 




CPY 


TEIFIN-1 


00635 





70000 





77012 




CPY 


TEIFIN-1 


00636 





70000 


4 


77012 


XB3 


CPY 


TEIFIN-1»4 


00637 


1 


00001 


4 


00636 




TXI 


XB3»4tl 


00640 





00000 





00004 


INCOR 


HTR 


4 


00641 


3 


00000 


4 


00643 




TXH 


X84A»4*0 


00642 


-0 


53400 


4 


01233 




LXD 


DEC0NE»4 


00643 


-0 


63400 


4 


00640 


XB4A 


SXD 


INC0R»4 


00644 





50000 


4 


77013 


XB4 


CLA 


TEIFIN»4 


00645 


-0 


32000 





01230 




ANA 


DECMSK 


00646 





34000 





00675 




CAS 


BETAEX 


00647 





02000 





00665 




TRA 


XB8 


00650 





02000 





00667 




TRA 


XB9 


00651 





50000 





01227 


XB5 


CLA 


ADDMSK 


00652 





60100 





00674 




STO 


PRTEST 


00653 





60100 





00672 




STO 


XB11 


00654 





50000 


4 


77013 


XB6 


CLA 


TEIFIN»4 


00655 


-0 


32000 





01227 




ANA 


ADDMSK 


00656 





07400 


4 


00676 




TSX 


BINDEC»4 


00657 





53400 


4 


00672 




LXA 


XB11»4 


00660 





56000 





00673 




LDO 


ASTRSK 


00661 


-3 


00000 


4 


00663 




TXL 


XB7»4»0 


00662 


-0 


76300 





00006 




LGL 


6 


00663 


-0 


53400 


4 


00671 


XB7 


LXD 


XB10»4 


00664 





02000 


4 


00001 




TRA 


1*4 


00665 


2 


00001 


4 


00644 


X38 


TIX 


XB4#4tl 


00666 





02000 





00651 




TRA 


XB5 


00667 





60000 





00672 


XB9 


STZ 


XB11 


00670 





02000 





00654 




TRA 


XB6 


00671 





00000 





00004 


XB10 


HTR 


4»0»0 


00672 





00000 





00000 


XB11 


HTR 





00673 


546060606060 


ASTRSK 


BCD 


1* 


00674 





00000 





00000 


PRTEST 


HTR 





00675 





00000 





00000 


BETAEX 


HTR 




ENTERt BINARY N 
NUMBER IN BCD I 
SAVED WITH SLW 


00676 





76000 





00003 


BINDEC 


SSP 




00677 





76500 





00043 




LRS 


35 



IF TEIFNO IN MEMORY* SKIP READ IN 
4 FILES TO BE SPACED OVER 

SPACE OVER RECORDS UNTIL END FILE SKIP 



IGNORE IDENTIFICATION AND WORD COUNT 
READ IN TEIFNO UNTIL END OF RECORD SKIP 

SET READ IN TO FAIL IF NO TEIFNO ENTRIES 
COMPARE INTERNAL FORMULA NUMBERS 
TO THE ONE BEING ASKED FOR 

SET TEST TO ADD ASTERISK TO END OF NUMBER 
SET END OF DIAG TO PRINT FOOTNOTE 

GET EXTERNAL FORMULA NUMBER 

CONVERT TO BCD DECIMAL 

SHOULD ASTERISK BE ADDED 
YES 



COMPARE TO NEXT* OR 

PRINT FIRST ENTRY WITH ASTERISK 

SET TEST TO PRINT NUMBER ONLY 



UMBER IN ADDRESS AC, EXIT DECIMAL 
N LOGICAL PORTION OF AC. MUST BE 

JUST IN CASE 



C(ii 



U 



u 



n 



00700 
00701 
00702 
00703 
00704 
00705 
00706 
00707 
00710 
00711 
00712 
00713 
00714 
0Q71S 
00716 
00717 
00720 
00721 



00730 
00731 
00732 
00733 
00734 
00735 
00736 
00737 



00740 
00741 
00742 
00743 
00744 
00745 
00746 
00747 
00750 
00751 
00752 
00753 
00754 
00755 
00756 
00757 
00760 
00761 
00762 
00763 
00764 
00765 



-0 63400 

-0 53400 

50000 

04000 

-0 75400 

22100 

60200 

1 00001 
-0 60000 
-0 50000 

76700 



00720 

00714 

00721 CNV 

00710 

00O00 

00721 

00730 * 

00702 

00730 FIN 

00717 

00006 DEC 



-0 50100 4 00730 
2 00001 4 00712 BINB 

-0 53400 4 00720 
02000 4 00001 
606060606060 BLANKS 
00000 00000 BINA 



+000000000012 



TEN 



00730 OIG 



76500 
50000 
14000 
76700 
76300 
14000 
02000 



00017 
00737 
00733 
0OOO3 
00003 
00733 
00001 



000000000060 

00740 
00004 
50000 4 00001 
62100 00772 
O 77100 00022 
60100 00773 
•0 63400 A 00774 
50Q00 00772 
40000 00775 
34000 00773 
76100 00000 
02000 00762 
76700 00022 
40000 00772 
60100 00760 
77100 00022 
62100 00772 
07400 4 00776 
00000 00000 
02000 00745 
50000 00773 
O 76700 00022 
40000 00772 
60100 00767 



OCTBCO 



OCT 



BLANK 
PRINT 

C 
RAN 



RN40 



RAN10 
RN50 



SXO 
LXD 
CLA 
TLQ 
PXD 
DVP 
SLW 
TXI 
STQ 
CAL 
ALS 
ORA 
TIX 
LXD 
TRA 
BCD 
HTR 
DEC 
BES 



LRS 
CLA 
TNO 
ALS 
LLS 
TNO 
TRA 
BCD 
BSS 
EOU 
CLA 
STA 
ARS 
STO 
SXD 
CLA 
ADD 
CAS 
NOP 
TRA 
ALS 
ADD 
STO 
ARS 
STA 
TSX 
HTR 
TRA 
CLA 
ALS 
ADD 
STO 



IF MQ LESS THAN 10* CONVERSION IS FINISHED 



SAVE REMAINDER IN 1 WORD OF BLOCK 
UP WORD COUNT OF BLOCK 

START WITH BLANKS 

AND BRING IN REMAINDER FROM ABOVE 



BINA»4 

BINB* 4 

TEN 

FIN 

0*0 

TEN 

DIG. 4 

CNV*4»1 

DIG*4 

BLANKS 

6 

DIG»4 

DEC»4.1 

BINA*4 

1*4 

1 

10 

6 

ENTER WITH OCTAL NUMBER IN ADDRESS OF AC. EXIT OCTAL 

CONVERTED TO BCD IN LOGICAL PORTION OF AC. THIS MUST 

BE SAVED WITH SLW 

15 

BLANK AC ZERO EXERT FOR END BLANK 

OCT * TURN OFF INDICATOR 

3 

3 

OCT 

1*4 

100000 



4 

1»4 

RNA 

18 

RNB 

RNC*4 

RNA 

RND 

RNB 

RN50 

18 

RNA 

RAN10 

18 

RNA 

WOT»C 

RN40 

RNB 

18 

RNA 

RN60 



END BLANK WILL TURN ON INDICATOR 



41) 



1 





00766 





07400 


4 


00776 




TSX 


WOT*C 




A 


00767 





00000 





OOOOO 


RN60 


HTR 








00770 


-0 


53400 


4 


00774 




LXD 


RNCtC 






00771 





02000 


4 


00002 




TRA 


2»C 




A 


00772 





00000 





OOOOO 


RNA 


HTR 




• 


A 


00773 





00000 





OOOOO 


RNB 


HTR 






A 


00774 





00000 





OOOOO 


RNC 


HTR 








00775 





ooooo 





00024 


RND 


HTR 


20 






00776 


-0 


63400 


1 


01073 


WOT 


sxo 


Xltl 






00777 


-0 


63400 


2 


01101 




SXD 


X2»2 






01000 


•0 


50000 


4 


00001 




CLA 


1*4 






01001 





62200 





01125 




STD 


X4 


X 




01002 





77100 





00022 




ARS 


18 


X 




01003 





40000 





01125 




ADD 


X4 


X 




01004 





62100 





01032 




STA 


CI9 


X 




01005 





40200 


4 


00001 




SUB 


1*4 


B-A+l IN AC 




01006 





10000 


4 


00002 




TZE 


2*4 






01007 


-0 


12000 


4 


00002 




TMI 


2*4 






01010 


r0 


63400 


4 


01125 




SXD 


X4»4 






01011 





73400 


4 


00013 


Lll 


PAX 


11*4 






01012 


-0 


63400 


4 


01123 




SXD 


PR6*4 






01013 





76600 





00361 


RPR 


WPR 








01014 





76100 





OOOOO 




NOP 








01015 


-0 


53400 


4 


01123 




LXD 


PR6»4 


X 


D 


01016 


-2 


OOOOO 


4 


01022 


PR 8 


TNX 


PR5*4 






01017 


-3 


00014 


4 


01021 




TXL 


PR3*4»12 






01020 





76000 





00370 




SPR 


8 


FIRST CYCLE 




01021 


-0 


53400 


4 


01123 


PR3 


LXD 


PR6»4 


INITIALIZE GROUP COUNT 




01022 





53400 


2 


01024 


PR 5 


LXA 


PR7»2 


INITIALIZE LEFT SETUP 




01023 


-0 


53400 


1 


01066 




LXD 


YZ1»1 


CLEAR CARD IMAGE 


T 


01024 


-0 


75400 





OOOOO 


PR7 


PXD 




X 




01025 




60200 


1 


01173 


PR4 


SLW 


L7»l 


X 




01026 





60200 


1 


01153 




SLW 


RT»1 


X 




01027 


2 


00001 


1 


01025 




TIX 


PR4*1*1 


X 




01030 


-0 


50000 





01131 


CIR 


CAL 


C0L1 


INITIALIZE COLUMN INDICATOR 




01031 





60200 





01132 


CI2 


SLW 


COL 


X 




01032 





56000 


4 


OOOOO 


CI9 


LDQ 


0*4 


OBTAIN GROUP 




01033 


-0 


63400 


4 


01226 




SXD 


0Z2*4 


STORE GROUP COUNT 




01034 





53400 


4 


01036 




LXA 


06*4 


SET CHARACTER COUNT 


T 


01035 


-0 


75400 





OOOOO 


CI1 


PXD 








01036 


-0 


76300 





00006 


Q6 


L6L 


6 






01037 
01040 



-0 


73400 
50000 


1 



OOOOO 
01132 




PAX 
CAL 


0*1 
COL 


POSITION COLUMN INDICATOR 




01041 





77100 


4 


00006 




ARS 


6*4 


X 




01042 


2 


00020 


1 


01066 




nx 


YZ1*1»16 


TEST FOR DIGIT 




01043 


3 


00017 


1 


01071 




TXH 


YZ2»1»15 


TEST FOR Y-ZONE 




01044 


-0 


60200 


3 


01170 


CI5 


ORS 


D*3 


STORE DIGIT 




01045 


2 


0000 1 


4 


01035 


CI4 


TIX 


CI1»4»1 


COUNT CHARACTERS 




01046 





77100 





00001 


CI3 


ARS 


1 


SHIFT AND TEST COLUMN 




01047 


-0 


53400 


4 


01226 




LXD 


OZ2*4 


RESTORE GROUP COUNT 


p 


01050 
01051 


1 
-3 


77777 
OOOOO 


4 
4 


01051 
01053 


CI6 


TX1 

TXL 


CI6»4*-1 
CI7*4 


COUNT GROUPS 

TEST FOR LAST NON-BLANK GROUP 




01052 


-0 


10000 





01031 




TNZ 


CI2 


TEST FOR END OF ROW 




01053 


-0 


50000 


2 


01155 


CI7 


CAL 


8*3*2 


FORM TRUE 8*4 



W 



U 



u 



o 



n 





01054 


-0 


60200 2 


01160 




ORS 


D-8»2 


AND 3 ROWS AND 






01055 


-0 


60200 2 


01165 




ORS 


D-3»2 


MOVE 8*4 AND 8*3 






01056 





60200 2 


01156 




SLW 


8*292 


ROWS 






01057 


-0 


50000 2 


01154 




CAL 


8*4*2 


FORM TRUE 8*4 






01060 


-0 


60200 2 


01160 




ORS 


D-8»2 


X 


• 




01061 


-0 


60200 2 


01164 




ORS 


D-4»2 


X 

• 






01062 





60200 2 


01155 




SLW 


8*3*2 


X 




o 


01063 


-3 


00000 4 


01106 


CI8 


TXL 


WP*4 


TEST FOR END 






01064 


3 


00017 2 


01106 




TXH 


WP»2»15 


TEST FOR RIGHT HALF 






01065 


1 


00020 2 


01030 




TXI 


CIR»2»16 


INITIALIZE RIGHT HALF 






01066 


2 


00020 1 


01074 


YZ1 


TIX 


XZl*ltl6 


TEST FOR 16/CH/32 






01067 


3 


00017 1 


01077 




TXH 


XZ2*1»15 


TEST FOR X-ZONE 






01070 


-0 


60200 3 


01170 




ORS 


D*3 


STORE DIGIT 






01071 


-0 


60200 2 


01172 


YZ2 


ORS 


Y*2 


STORE Y-ZONE 






01072 


2 


00001 4 


01035 




TIX 


CI1»4*1 


COUNT CHARACTERS 




TD 


01073 


-3 


00000 


01046 


XI 


TXL 


CI3 


OBTAIN NEXT GROUP 






01074 


2 


00020 1 


01102 


XZ1 


TIX 


0Z1»1»16 


TEST FOR 32/CH/48 






01075 


3 


00017 1 


01045 




TXH 


CI4»1»15 


TEST FOR BLANK 






01076 


-0 


60200 3 


01170 




ORS 


D»3 


STORE DIGIT 






01077 


-0 


60200 2 


01171 


XZ2 


ORS 


X*2 


STORE X-ZONE 






01100 


2 


00001 4 


01035 




TIX 


CI1»4*1 


COUNT CHARACTERS 




TO 


01101 


-3 


00000 


01046 


X2 


TXL 


CI3 


OBTAIN NEXT GROUP 






01102 


-0 


60200 2 


01170 


0Z1 


ORS 


Z*2 


STORE O-ZONE 






01103 


-0 


60200 3 


01170 




ORS 


D*3 


STORE DIGIT 






01104 


2 


00001 4 


01035 




TIX 


C21»4»l 


COUNT CHARACTERS 




TD 


01105 


-3 


00000 


01046 




TXL 


C13 








0110* 





53400 1 


01226 


WP7 


LXA 


02*1 


COPY LOOP 






01107 





70000 1 


01157 


GRAN 


CPY 


LT-12»1 








OHIO 





70000 1 


01137 




CPY 


RT-12»1 


X 






01111 


1 


77777 1 


01112 




TXI 


T2»l*-1 








01H2 


3 


77764 1 


01107 


T2 


TXH 


CRAN*1»-12 






D 


01113 
01H4 


3 
-0 


00000 4 
53400 1 


01120 
01073 


WP4 


TXH 
LXD 


WP5»4 
Xl#l 


NO* RELOAD INDEX REGISTERS AND RE1 


ruRi 




01115 


-0 


53400 2 


01101 




LXD 


X2 #2 


X 






01116 


-0 


53400 4 


01125 


WT2 


LXD 


X4*4 


X 






01117 





02000 4 


00002 


L2 


TRA 


2*4 


X 






01120 





76600 


00361 


WP5 


WPR 










01121 





76000 


00371 


* 


SPR 


9 


SECOND CYCLE 






01122 


-3 


00014 


01022 


WP2 


TXL 


PR5*0-»12 


CONVERT REST OF LINE 




A 


01123 





00000 


00000 


PR6 


HTR 










01124 


606060606060 


BLNKS 


BCD 


1 






A 


01125 





00000 


00000 


X4 


HTR 










01126 


4-000000000020 


YZONE 


OCT 


20 








01127 


+0000000000*0 


BNK 


OCT 


60 








0H30 


+377777777777 


MK2 


OCT 


377777777777 








01131 


-0 


00000 


00000 
01132 
01153 
01153 
01154 
01155 
01156 
01170 
01170 


COLl 

COL 

RT 

8*5 

8*4 

8*3 

8*2 

D 

Z 


MZE 
BSS 
BES 
BSS 
BSS 
BSS 
BSS 
BES 
BSS 


1 

16 

1 

1 

1 

1 

9 

1 







tir.l 



01171 
01172 
01173 
01155 
01135 
01173 
00000 
01226 
01106 

+000000077777 

+077777000000 

+000000000077 
00000 00000 

+00000 lOOOOOO 
O 00000 00000 
00000 00000 
00000 00000 
606060606060 
606060606060 
442123303145 
256025515146 
516060606060 
606060606060 
606060606060 
624664512325 
604751462751 
214460255151 
465160606060 
606060606060 
606060606060 
434623216331 
464560606060 
606060606060 

01257 
00000 00000 

+001017000000 
00001 00000 

+000036000000 
00170 00000 

+000037000000 
00216 00000 

+000041000000 
00047 00000 

+000046000000 
00140 00000 

+000047000000 
00047 00000 

+000051000000 
00163 OOOOO 

+000060000000 
00205 OOOOO 

+000061000000 
00101 OOOOO 

+000062000000 



01226 OOOOO 



01227 
01230 
01231 
01232 
01233 
01234 
01235 
01236 
01237 
01240 
01241 
01242 
01243 
01244 
01245 
01246 
01247 
01250 
01251 
01252 
01253 
01254 
01255 
01256 

01303 
01304 
01305 
01306 
01307 
01310 
01311 
01312 
01313 
01314 
01315 
01316 
01317 
01320 
01321 
01322 
01323 
01324 
01325 
01326 



X 


BSS 


1 


Y 


BSS 


1 


LT 


SYN 


Y+l 


8.4L 


SYN 


LT-14 


8*4R 


SYN 


RT-14 




BSS 


27 


QZ 


HTR 




0Z2 


SYN 


OZ 


WP 


SYN 


WP7 


ADDMSK 


OCT 


000000077777 


DECMSK 


OCT 


077777000000 


CHMASK 


OCT 


000000000077 


ZERO 


HTR 





DECONE 


OCT 


000001000000 


PREFX1 


HTR 





ERWORD 


HTR 





RECORD 






MACHIN 


BCD 


2 



BCD 3MACHINE ERROR 

SOURCE BCD 2 

BCD 4S0URCE PROGRAM ERROR 



LOC BCD 


2 


BCD 


3L0CATI0N 


ERAS BSS 


20 


LOCREC HTR 





OCT 


001017000000 


HTR 


0*0*1 


OCT 


000036000000 


HTR 


0*0*120 


OCT 


000037000000 


HTR 


0*0*142 


OCT 


000041000000 


HTR 


0*0*39 


OCT 


000046000000 


HTR 


0*0*96 


OCT 


000047000000 


HTR 


0*0*39 


OCT 


000051000000 


HTR 


0*0*115 


OCT 


000060000000 


HTR 


0*0*133 


OCT 


000061000000 


HTR 


0*0*65 


OCT 


000062000000 



FOR PATCHING ETC* 

ALL ERROR RECORDS READ IN HERE OVER LIST 
ERROR IN 1 DOUBLE PRIME 
ERROR RECORD 1 
53 

36 
90 

37 
60 

41 
90 

46 
58 

47 
56 

51 
56 

60 
47 

61 
53 



u 



u 



o 



n 



01327 00174 00000 

01330 +000063000000 

01331 00174 00000 

01332 +000064000000 

01333 00060 00000 

01334 +000066000000 

01335 00174 00000 

01336 +000067000000 

01337 00174 00000 

01340 +000070000000 

01341 00047 00000 

1342 +000072 000000 

01343 -0 00174 00065 

01344 +000072000000 

01345 00056 00000 

01346 +000073000000 

01347 00174 000O0 

01350 +000074000000 

01351 00112 00000 

01352 +000103000000 

01353 00060 00000 

01354 +000106000000 

01355 00006 00000 

01356 +000107000000 

01357 -0 00050 00072 

01360 +000107000000 

01361 00046 00000 

01362 +000116000000 

01363 00102 00000 

01364 +000123000000 

01365 -0 00047 O 00057 

01366 +000123000000 

01367 00160 00000 

01370 +000124000000 

01371 00160 00000 

01372 +000132000000 

01373 -0 00102 00065 

01374 +000132000000 

01375 00274 00000 

01376 +000140000000 

01377 00047 00000 

01400 +000141000000 

01401 00142 00000 

01402 +000150000000 

01403 00065 00000 

01404 +000160000000 

01405 00060 00000 

01406 +000161000000 

01407 00050 O 00000 

01410 +000173000000 

01411 00274 OOOOO 

01412 +000216000000 

01413 00050 OOOOO 

01414 +000222000000 



HTR 0*0*124 62 

OCT 000063000000 53 

HTR 0*0*124 63 

OCT 000064000000 71 

HTR 0*0*48 64 

OCT 000066000000 53 

HTR 0*0*124 66 

OCT 000067000000 53 

HTR 0*0*124 67 

OCT 000070000000 92 

HTR 0*0*39 70 

OCT 000072000000 53 

MZE 53*0*124 72 

OCT 000072000000 60 

HTR 0*0*46 72 

OCT 000073000000 53 • 

HTR 0*0*124 73 

OCT 000074000000 56 

HTR 0*0*74 74 

OCT 000103000000 67 

HTR 0»0»48 103 

OCT 000106000000 53 

HTR 0*0*6 106 

OCT 000107000000 58 

MZE 58*0*40 107 

OCT 000107000000 92 

HTR 0*0*38 107 

OCT 000116000000 53 

HTR 0*0*66 116 

OCT 000123000000 47 

MZE 47*0*39 123 

OCT 000123000000 53 

HTR 0*0*112 123 

OCT 000124000000 53 

HTR 0*0*112 124 

OCT 000132000000 53 

MZE 53*0*66 132 

OCT 000132000000 60 

HTR 0*0*188 132 

OCT 000140000000 56 

HTR 0*0*39 140 

OCT 000141000000 92 

HTR 0*0*98 141 

OCT 000150000000 75 

HTR 0*0*53 150 

OCT 000160000000 67 

HTR 0*0*48 160 

OCT 000161000000 56 

HTR 0*0*40 161 

OCT 000173000000 60 

HTR 0*0*188 173 

OCT 000216000000 47 

HTR 0*0*40 216 

OCT 000222000000 94 



& 



L 



01415 -0 00066 00136 

01416 +000222000000 

01417 -0 00047 00151 

01420 +000222000000 

01421 -0 00067 00153 

01422 +000222000000 

01423 00047 00000 

01424 +000223000000 

01425 00155 00000 

01426 +000227000000 

01427 00274 00000 

01430 +000230000000 

01431 00047 00000 

01432 +000241000000 

01433 -0 00070 00153 

01434 +000241000000 

01435 00046 00000 

01436 +000245000000 

01437 -0 00147 00011 

01440 +000245000000 

01441 00046 00000 

01442 +000246000000 

01443 00047 00000 

01444 +003672000000 

01445 00222 00000 

01446 +000247000000 

01447 00046 00000 

01450 +000252000000 

01451 -0 00274 00074 

01452 +000252000000 

01453 00244 00000 

01454 +000255000000 

01455 00156 00000 

01456 +000256000000 

01457 00060 00000 

01460 +000260000000 

01461 -0 00046 00140 

01462 +000260000000 

01463 00046 00000 

01464 +000263000000 

01465 00060 00000 

01466 +000264000000 

01467 00150 00000 

01470 +000270000000 

01471 00017 00000 

01472 +000277000000 

01473 -0 00046 00134 

01474 +000277000000 

01475 00037 00000 

01476 +000301000000 

01477 00247 00000 

01500 +003730000000 

01501 00151 00000 

01502 +000303000000 



MZE 94»0#54 222 

OCT 000222000000 105 

MZE 105»0t39 222 

OCT 000222000000 107 

MZE 107»0*55 222 

OCT 000222000000 115 

HTR 0»0»39 222 

OCT 000223000000 113 

HTR 0t0»109 223 

OCT 000227000000 60 

HTR 0»0»188 227 

OCT 000230000000 101 

HTR 0»0t39 230 

OCT 000241000000 107 

MZE 107»0»56 241 

OCT 000241000000 115 

HTR 0»0»38 241 

OCT 000245000000 9 

MZE 9»0»103 245 

OCT 000245000000 105 

HTR 0#0>38 245 

OCT 000246000000 92 

HTR 0»0t39 246 

OCT 003672000000 115 

HTR 0*0*146 3672 

OCT 000247000000 101 

HTR 0*0.38 247 

OCT 000252000000 60 

MZE 60*0*188 252 

OCT 000252000000 105 

HTR 0*0*164 252 

OCT 000255000000 103 

HTR 0*0*110 255 

OCT 000256000000 73 

HTR 0*0*48 256 

OCT 000260000000 96 

MZE 96*0*38 260 

OCT 000260000000 98 

HTR 0*0*38 260 

OCT 000263000000 67 

HTR 0*0*48 263 

OCT 000264000000 .7 

HTR 0*0*104 264 

OCT 000270000000 56 

HTR 0*0*15 270 

OCT 000277000000 92 

MZE 92*0*38 277 

OCT 000277000000 113 

HTR 0*0*31 277 

OCT 000301000000 67 

HTR 0*0*167 301 

OCT 003730000000 115 

HTR 0*0*105 3730 

OCT 000303000000 73 



,// 



O 



o 



o 



n 



01503 


00124 00000 


HTR 


0*0*84 


303 


01504 


+000305000000 


OCT 


000305000000 


56 


01505 


-0 00047 00070 


MZE 


56*0*39 


305 


01506 


+000305000000 


OCT 


000305000000 


60 


01507 


00274 00000 


HTR 


0*0*188 


305 


01510 


+000311000000 


OCT 


000311000000 


9 


01511 


00152 00000 


HTR 


0*0*106 


311 


01512 


+0003120000QO 


OCT 


000312000000 


113 


01513 


00245 00000 


HTR 


0*0*165 


312 


01514 


+000314000000 


OCT 


000314000000 


90 


01515 


00167 00000 


HTR 


0*0*119 


314 


01516 


+000321000000 


OCT 


000321000000 


90 


01517 


00217 00000 


HTR 


0*0*143 


321 


01520 


+000327000000 


OCT 


00032700000Q 


86. 


01521 


00133 00000 


HTR 


0*0*91 


327 


01522 


+000330000000 


OCT 


000330000000 


90 


01523 


00141 00000 


HTR 


0*0*97 


330 


01524 


+000331000000 


OCT 


000331 OOQOQO 


58 


01525 


00164 00000 


HTR 


0*0*116 


331 


01526 


+000334000000 


OCT 


000334000000 


56 


01527 


-0 00050 00070 


MZE 


56*0*40 


334 


01530 


+000334000000 


OCT 


000334000000 


60 


01531 


00274 00000 


HTR 


0*0*188 


334 


01532 


+000336000000 


OCT 


000336000000 


86 


01533 


00213 00000 


HTR 


0*0*139 


336 


01534 


+000340000000 


OCT 


000340000000 


58 


01535 


00206 00000 


HTR 


0*0*134 


340 


01536 


+000341000000 


OCT 


000341000000 


96 


01537 


-0 00040 00140 


MZE 


96*0*32 


341 


01540 


+000341000000 


OCT 


000341000000 


67 


01541 


-0 00060 00103 


MZE 


67*0*48 


341 


01542 


+000341000000 


OCT 


000341000000 


98 


01543 


00040 00000 


HTR 


0*0*32 


341 


01544 


+000345000000 


OCT 


000345000000 


5 


01545 


00242 00000 


HTR 


0*0*162 


345 


01546 


+000350000000 


OCT 


000350000000 


58 


01547 


-0 00113 00072 


MZE 


58*0*75 


350 


01550 


+000350000000 


OCT 


000350000000 


62 


01551 


00125 00000 


HTR 


0*0*85 


350 


01552 


+000352000000 


OCT 


000352000000 


113 


01553 


00041.0 00000 


HTR 


0*0*33 


352 


01554 


+000354000000 


OCT 


000354000000 


64 


01555 


00235 00000 


HTR 


0*0*157 


354 


01556 


+000356000000 


OCT 


000356000000 


92 


01557 


00143 00000 


HTR 


0»0»99 


356 


01560 


+000357000000 


OCT 


000357000000 


58 


01561 


00165 00000 


HTR 


0*0*117 


357 


01562 


+000363000000 


OCT 


000363000000 


60 


01563 


00274 00000 


HTR 


0*0*188 


363 


01564 


+000366000000 


OCT 


000366000000 


58 


01565 


00207 00000 


HTR 


0*0*135 


366 


01566 


+000 375000000 


OCT 


000375000000 


58 


01567 


00114 00000 


HTR 


0*0*76 


375 


01570 


+000377000000 


OCT 


000377000000 


56 



6/ 



/ 



\r 



01571 


-0 00274 00070 


MZE 


56*0*188 


377 


01572 


+000377000000 


OCT 


000377000000 


115 


01573 


00042 00000 


HTR 


0*0*34 


377 


01574 


+000410000000 


OCT 


000410000000 


58 


01575 


-0 00115 00072 


MZE 


58*0*77 


410 


01576 


+000410000000 


OCT 


000410000000 


96 


01577 


00153 00000 


HTR 


0*0*107 


410 


01600 


+000417000000 


OCT 


000417000000 


58 


01601 


00210 OCOOO 


HTR 


0*0*136 


417 


01602 


+000424000000 


OCT 


000424000000 


56 


01603 


00274 00000 


HTR 


0*0*188 


424 


01604 


+000425000000 


OCT 


000425000000 


67 


01605 


-0 00036 00103 


MZE 


67*0*30 


425 


01606 


+000425000000 


OCT 


000425000000 - 


73 


01607 


-0 00267 00111 


MZE 


73*0*183 


425 


01610 


+000425000000 


OCT 


000425000000 


98 


01611 


00046 00000 


HTR 


0*0*38 


425 


01612 


+000427000000 


OCT 


000427000000 


96 


01613 


00223 00000 


HTR 


0*0*147 


427 


01614 


+000430000000 


OCT 


000430000000 


58 


01615 


00116 00000 


HTR 


0*0*78 


430 


01616 


+000434000000 


OCT 


000434000000 


62 


01617 


O0023 00000 


HTR 


0*0*19 


434 


01620 


+000437000000 


OCT 


000437000000 


84 


01621 


00134 00000 


HTR 


0*0*92 


437 


01622 


+000441000000 


OCT 


000441000000 


98 


01623 


00044 00000 


HTR 


0*0*36 


441 


01624 


+000442000000 


OCT 


000442000000 


60 


01625 


-0 00274 00074 


MZE 


60*0*188 


442 


01626 


+000442000000 


OCT 


000442000000 


96 


01627 


00047 00000 


HTR 


0*0*39 


442 


01630 


+000443000000 


OCT 


000443000000 


103 


01631 


00243 00000 


HTR 


0*0*163 


443 


01632 


+000446000000 


OCT 


000446000000 


58 


01633 


00117 00000 


HTR 


0*0*79 


446 


01634 


+000454000000 


OCT 


000454000000 


62 


01635 


-0 00211 00076 


MZE 


62*0*137 


454 


01636 


+000454000000 


OCT 


000454000000 


64 


01637 


00024 00000 


HTR 


0*0*20 


454 


01640 


+000460000000 


OCT 


000460000000 


98 


01641 


00154 00000 


HTR 


0*0*108 


460 


01642 


+000465000000 


OCT 


000465000000 


96 


01643 


00046 00000 


HTR 


0*0*38 


465 


01644 


+000500000000 


OCT 


000500000000 


96 


01645 


00047 00000 


HTR 


0*0*39 


500 


01646 


+000510000000 


OCT 


000510000000 


56 


01647 


-0 00120 00070 


MZE 


56*0*80 


510 


01650 


+000510000000 


OCT 


000510000000 


73 


01651 


00270 00000 


HTR 


0*0*184 


510 


01652 


+000517000000 


OCT 


000517000000 


62 


01653 


00126 00000 


HTR 


0*0*86 


517 


01654 


+000520000000 


OCT 


000520000000 


56 


01655 


-0 00121 00070 


MZE 


56*0*81 


520 


01656 


+000520000000 


OCT 


000520000000 


113 
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u 



u 



o 



0165? 00243 00000 

01660 +000521000000 

01661 00274 00000 

01662 4000524000000 

01663 00166 00000 

01664 4000533000000 

01665 00033 00000 

01666 +000534000000 

01667 00212 00000 

01670 +000544000000 

01671 00274 00000 

01672 +000546000000 

01673 00043 00000 

01674 +000553000000 

01675 00127 00000 

01676 +000556000000 

01677 00237 00000 

01700 +000562000000 

01701 -0 00144 00134 

01702 +000562000000 

01703 00045 00000 

01704 +000604000000 

01705 00034 00000 

01706 +000607000000 

01707 00047 00000 

01710 +000613000000 

01711 00274 00000 

01712 +000624000000 

01713 00224 00000 

01714 +000627000000 

01715 00050 00000 

01716 +000643000000 

01717 00025 00000 

01720 +000654000000 

01721 00274 00000 

01722 +000661000000 

01723 00246 00000 

01724 +000674000000 

01725 00122 00000 

01726 +000707000000 

01727 00024 00000 

01730 +000711000000 

01731 00236 00000 

01732 +000716000000 

01733 00130 00000 

01734 +000720000000 

01735 O 00123 00000 

01736 +000734000000 

01737 00047 00000 

01740 +000747000000 

01741 00020 00000 

01742 +000750000000 

01743 00020 00000 

01744 +000756000000 



HTR 0*0*163 520 

OCT 000521000000 60 

HTR 0*0*188 521 

OCT 000524000000 62 

HTR 0*0*116 524 

OCT 000533000000 92 

HTR 0*0*27 533 

OCT 000534000000 62 

HTR 0*0*138 534 

OCT 000544000000 60 

HTR .0*0 •100 544 

OCT 000546000000 2 

HTR 0*0*35 546 

OCT 000553000000 62 

HTR 0*0*87 553 

OCT 000556000000 64 

HTR 0*0*159 556 

OCT 000562000000 $2 

M2E 92t0»100 562 

OCT 000562000000 113 

HTR 0*0*37 562 

OCT 000604000000 92 

HTR 0*0*28 604 

OCT 000607000000 60 

HTR 0*0*39 607 

OCT 000613000000 56 

HTR 0*0*188 613 

OCT 000624000000 98 

HTR 0*0*148 624 

OCT 000627000000 60 

HTR Q»0»40 627 

OCT 000643000000 64 

HTR 0*0*21 643 

OCT 000654000000 56 

HTR 0*0*188 654 

OCT 000661000000 75 

HTR 0*0*166 661 

OCT 000674000000 60 

HTR 0*0*82 674 

OCT 000707000000 64 

HTR 0*0*20 707 

OCT 000711000000 62 

HTR 0*0*158 711 

OCT 000716000000 62 

HTR 0*0*88 716 

OCT 000720000000 60 

HTR 0*0*83 720 

OCT 000734000000 45 

HTR 0*0*39 734 

OCT 000747000000 56 

HTR 0*0*16 747 

OCT 000750000000 56 

HTR 0*0*16 750 

OCT 000756000000 64 



,-■? 



01745 00026 00000 

01746 +000 76*2 000000 

01747 00251 00000 

01750 +000765 000000 

01751 00145 00000 

01752 +001000000000 

01753 00274 00000 

01754 +001001000000 

01755 00157 00000 

01756 +001006000000 

01757 00055 00000 

01760 +001022000000 

01761 00246 00000 

01762 +001023000000 

01763 00131 00000 

01764 +001031000000 

01765 00075 00000 

01766 +001041000000 

01767 00027 00000 

01770 +001076000000 

01771 00253 00000 

01772 +001135000000 

01773 -0 00057 00076 

01774 +001135000000 

01775 00146 00000 

01776 +001141000000 

01777 00050 00000 

02000 +001160000000 

02001 00277 00000 

02002 +001175000000 

02003 00132 00000 

02004 +001211000000 

02005 00214 00000 

02006 +001221000000 

02007 -0 00076 00026 

02010 +001221000000 

02011 00215 00000 

02012 +001231000000 

02013 00063 00000 

02014 +001234000000 

02015 00271 00000 

02016 +001240000000 

02017 00135 00000 

02020 +001261000000 

02021 00272 00000 

02022 +001274000000 

02023 00071 00000 

02024 +001307000000 

02025 00252 00000 

02026 +001320000000 

02027 00274 00000 

02030 +001341000000 

02031 00220 00000 

02032 +001345000000 



HTR 0*0*22 756 

OCT 000762000000 75 

HTR 0*0*169 762 

OCT 000765000000 92 

HTR 0*0*101 765 

OCT 001000000000 56 

HTR 0*0*188 1000 

OCT 001001000000 24 

HTR 0*0*111 1001 

OCT 001006000000 45 

HTR 0*0*45 1006 

OCT 001022000000 75 

HTR 0*0*166 1022 

OCT 001023000000 64 

HTR 0*0.89 1023 

OCT 001031000000 24 

HTR 0*0*61 1031 

OCT 001041000000 64 

HTR 0*0*23 1041 

OCT 001076000000 45 

HTR 0*0*171 1076 

OCT 001135000000 62 

MZE 62*0*47 1135 

OCT 001135000000 92 

HTR 0*0*102 1135 

OCT 001141000000 45 

HTR 0*0*40 1141 

OCT 0011*0000000 22 

HTR 0*0*191 1160 

OCT 001175000000 62 

HTR 0*0*90 1175 

OCT 00121 lOOOOoO 75 

HTR 0*0*140 1211 

OCT 001221000000 22 

MZE 22*0*62 1221 

OCT 001221000000 75 

HTR 0*0*141 1221 

OCT 001231000000 45 

HTR 0*0*51 1231 

OCT 001234000000 62 

HTR 0*0*185 1234 

OCT 001240000000 75 

HTR 0*0*93 1240 

OCT 001261000000 62 

HTR 0*0* 186 1261 

OCT 001274000000 22 

HTR 0*0*57 1274 

OCT 001307000000 22 

HTR 0*0*170 1307 

OCT 001320000000 56 

H&* 0*0*188 1320 

OCT 001341000000 92 

HTR 0*0»144 1341 

OCT 001345000000 22 
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02033 00072 00000 

02034 +001347000000 

02035 00221 00000 

02036 +001377000000 

02037 00073 00000 

02040 +001444000000 

02041 00074 O 00000 

02042 +001531000000 

02043 00274 00000 

02044 +001634000000 

02045 00251 00000 

02046 +001767000000 

02047 00274 00000 

02050 +001777000000 

02051 00251 00000 

02052 +002230000000 

02053 00273 0O00O 

02054 +002155000000 

02055 00021 00000 

02056 +002163000000 

02057 00022 00000 

02060 +002655000000 

02061 00031 00000 

02062 +003001000000 

02063 00240 00000 

02064 +003064000000 

02065 O 00250 00000 

02066 +003143000000 

02067 00060 00000 

02070 +003156000000 

02071 00030 00000 

02072 +003253000000 

02073 00241 00000 

02074 +003540000000 

02075 00136 00000 

02076 +004006000000 

02077 00053 00000 

02100 +004007000000 

02101 00053 00000 

02102 +004026000000 

02103 00103 00000 

02104 +004031000000 

02105 00251 00000 

02106 +004035000000 

02107 00200 00000 

02110 +004040000000 

02111 00007 00000 

02112 +004054000000 

02113 00104 00000 

02114 +004124000000 

02115 00256 00000 

02116 +004155000000 

02117 00105 00000 
02120 +004157000000 



HTR 0*0*58 1345 

OCT 001347000000 92 

HTR 0*0*145 1347 

OCT 001377000000 22 

HTR 0*0*59 1377 

OCT 001444000000 22 

HTR 0*0*60 1444 

OCT 001531000000 56 

HTR 0*0*188 1531 

OCT 001634000000 75 

HTR 0*0*169 1634 

OCT 001767000000 56 

HTR 0*0*188 1767 

OCT 001777000000 75 

HTR 0*0*169 1777 

OCT 002230000000 75 

HTR 0*0*187 2230 

OCT 002155000000 56 

HTR 0*0*17 2155 

OCT 002163000000 56 

HTR 0*0*18 2163 

OCT 002655000000 75 

HTR 0*0*25 2655 

OCT 003001000000 88 

HTR 0*0*160 3001 

OCT 003064000000 65 

HTR 0*0*168 3064 

OCT 003143000000 65 

HTR 0*0*48 3143 

OCT 003156000000 65 

HTR 0*0*24 3156 

OCT 003253000000 88 

HTR 0*0*161 3253 

OCT 003540000000 88 

HTR 0*0*94 3540 

OCT 004006000000 51 

HTR 0*0*43 4006 

OCT 004007000000 51 

HTR 0*0*43 4007 

OCT 004026000000 51 

HTR 0*0*67 4026 

OCT 004031000000 75 

HTR 0»0*169 4031 

OCT 004035000000 51 

HTR 0*0*128 4035 

OCT 004040000000 51 

HTR 0*0*7 4040 

OCT 004054000000 51 

HTR 0*0*68 4054 

OCT 004124000000 51 

HTR 0*0*174 4124 

OCT 004155000000 34 

HTR 0*0*69 4155 

OCT 004157000000 51 



TO 



» L 



02121 


00257 00000 


HTR 


0*0*175 


4157 


02122 


+004160000000 


OCT 


004160000000 


34 


02123 


00010 00000 


HTR 


0*0*8 


4160 


02124 


+004161000000 


OCT 


004161000000 


34 


02125 


00201 00000 


HTR 


0»0tl29 


4161 


02126 


+004303000000 


OCT 


004303000000 


75 


02127 


00251 00000 


HTR 


0*0*169 


4303 


02130 


+004307000000 


OCT 


004307000000 


51 


02131 


00064 00000 


HTR 


0*0*52 


430J 


02132 


+004417000000 


OCT 


004417000000 


88 


02133 


00171 00000 


HTR 


0*0*121 


4417 


02134 


+004405000000 


OCT 


004405000000 


34 


02135 


00260 00000 


HTR 


0*0*176 


4405 


02136 


+004453000000 


OCT 


004453000000 


88 


02137 


00137 00000 


HTR 


0*0*95 


4453 


02140 


+004533000000 


OCT 


004533000000 


51 


02141 


00261 00000 


HTR 


0*0*177 


4533 


02142 


+004570000000 


OCT 


004570000000 


34 


02143 


00061 00000 


HTR 


0*0*49 


4570 


02144 


+004623000000 


OCT 


004623000000 


51 


02145 


00254 00000 


HTR 


0*0*172 


4623 


02146 


+004666000000 


OCT 


004666000000 


51 


02147 


00050 00000 


HTR 


0*0*40 


4666 


02150 


+005037000000 


OCT 


005037000000 


34 


02151 


00011 00000 


HTR 


0*0*9 


5037 


02152 


+005232000000 


OCT 


005232000000 


34 


02153 


00255 00000 


HTR 


0*0*173 


5232 


02154 


+005273000000 


OCT 


005273000000 


34 


02155 


00275 00000 


HTR 


0*0*189 


5273 


02156 


+005560000000 


OCT 


005560000000 


34 


02157 


00051 00000 


HTR 


0*0*41 


v 5560 


02160 


+005721000000 


OCT 


005721000000 


27 


02161 


00262 00000 


HTR 


0*0*178 


5721 


02162 


+005742000000 


OCT 


005742000000 


27 


02163 


00231 00000 


HTR 


0*0*153 


5742 


02164 


+005763000000 


OCT 


005763000000 


27 


02165 


00231 00000 


HTR 


0*0*153 


5763 


02166 


+005764000000 


OCT 


005764000000 


27 


02167 


00231 00000 


HTR 


0*0*153 


5764 


02170 


+005773000000 


OCT 


005773000000 


51 


02171 


00232 00000 


HTR 


0*0*154 


5773 


02172 


+006004000000 


OCT 


006004000000 


32 


02173 


00225 00000 


HTR 


0*0*149 


6004 


02174 


+006044000000 


OCT 


006044000000 


27 


02175 


00012 00000 


HTR 


0*0*10 


6044 


02176 


+006063000000 


OCT 


006063000000 


32 


02177 


00275 00000 


HTR 


0*0*189 


6063 


02200 


+006065000000 


OCT 


006065000000 


27 


02201 


00013 00000 


HTR 


0*0*11 


6065 


02202 


+006234000000 


OCT 


006234000000 


51 


02203 


00014 00000 


HTR 


0*0*12 


6234 


02204 


+006253000000 


OCT 


006253000000 


32 


02205 


00263 00000 


HTR 


0*0*179 


6253 


02206 


+006256000000 


OCT 


006256000000 


32 



u 



u 



f~\ 



0220? 00263 00000 

02210 +006353000000 

02211 00233 00000 

02212 +006357000000 

02213 00050 00000 

02214 +006373000000 

02215 00227 00000 

02216 +006376000000 

02217 00230 00000 

02220 +006432000000 

02221 00015 00000 

02222 +006475000000 

02223 00275 00000 

02224 +006534000000 

02225 00012 00000 

02226 +006635000000 

02227 00264 00000 

02230 +006710000000 

02231 00226 00000 

02232 +006736000000 

02233 00161 00000 

02234 +006737000000 

02235 00161 00000 

02236 +006744000000 

02237 00106 00000 

02240 +006762000000 

02241 00050 00000 

02242 +006765000000 

02243 00054 00000 

02244 +006767000000 

02245 00107 00000 

02246 +007023000000 

02247 00265 00000 

02250 +007027000000 

02251 00050 00000 

02252 +007045000000 

02253 00016 00000 

02254 +007052000000 

02255 00202 00000 

02256 +007053000000 

02257 00172 00000 

02260 +007056000000 

02261 00202 00000 

02262 +007057000000 

02263 00172 00000 

02264 +007070000000 

02265 00110 00000 

02266 +007073000000 

02267 00266 00000 

02270 +007075000000 

02271 00175 00000 

02272 +007076000000 

02273 00175 00000 

02274 +007100000000 



HTR 0»0tl79 6256 

OCT 006353000000 51 

HTR 0*0*155 6353 

OCT 006357000000 29 

HTR 0*0*40 6357 

OCT 006373000000 27 

HTR 0*0*151 6373 

OCT 006376000000 27 

HTR 0*0*152 6376 

OCT 006432000000 27 

HTR 0*0*13 6432 

OCT 006475000000 32 

HTR 0*0*189 6475 

OCT 006534000000 27 

HTR 0*0*10 6534 

OCT 006635000000 27 

HTR 0*0*180 6635 

OCT 006710000000 27 

HTR 0*0*150 6710 

OCT 006736000000 41 

HTR 0*0*113 6736 

OCT 006737000000 41 

HTR 0*0*113 6737 

OCT 006744000000 41 

HTR 0*0*70 6744 

OCT 006762000000 43 

HTR 0*0*40 6762 

OCT 006765000000 37 

HTR 0*0*44 6765 

OCT 006767000000 39 
HTR 0*0*71 . 6767 

OCT 007023000000 27 

HTR 0*0*181 7023 

OCT 007027000000 37 

HTR 0*0*40 7027 

OCT 007045000000 43 

HTR 0*0*14 7045 

OCT 007052000000 37 

HTR 0*0*130 7052 

OCT 007053000000 37 

HTR 0*0*122 7053 

OCT 007056000000 37 

HTR 0*0*130 7056 

OCT 007057000000 37 

HTR 0*0*122 7057 

OCT 007070000000 37 

HTR 0*0*72 7070 

OCT 007073000000 39 

HTR 0*0*182 7073 

OCT 007075000000 27 

HTR 0*0*125 7075 

OCT 007076000000 27 

HTR 0*0*125 7076 

OCT 007100000000 55 



67 



02275 


00035 00000 


HTR 


0*0*29 


7100 




02276 


+007103000000 


OCT 


007103000000 


27 




02277 


00203 00000 


HTR 


0*0*131 


7103 




02300 


+007110000000 


OCT 


007110000000 


43 




02301 


00234 00000 


HTR 


0*0*156 


7110 




02302 


+007112000000 


OCT 


007112000000 


27 




02303 


00162 00000 


HTR 


0*0*114 


7112 




02304 


+007123000000 


OCT 


007123000000 


27 




02305 


00111 00000 


HTR 


0*0*73 


7123 




02306 


+007135000000 


OCT 


007135000000 


27 




02307 


00204 00000 


HTR 


0*0*132 


7135 




02310 


+007143000000 


OCT 


007143000000 


55 




02311 


00274 00000 


HTR 


0*0*188 


7143 




02312 


+007250000000 


OCT 


007250000000 


27 




02313 


00173 00000 


HTR 


0*0*123 


7250 




02314 


+007303000000 


OCT 


007303000000 


41 




02315 


00016 00000 


HTR 


0*0*14 


7303 




02316 


+007320000000 


OCT 


007320000000 


27 


DO NEST 


02317 


00005 00000 


HTR 


0*0*5 


7320 


DO NESTING 


02320 


+007454000000 


OCT 


007454000000 


75 




02321 


00032 00000 


HTR 


0*0*26 


7454 




02322 


+007555000000 


OCT 


007555000000 


21 




02323 


00177 00000 


HTR 


0*0*127 


7555 




02324 


+007563000000 


OCT 


007563000000 


21 




02325 


00176 00000 


HTR 


0*0*126 


7563 




02326 


+007620000000 


OCT 


007620000000 


21 




02327 


00276 00000 


HTR 


0*0*190 


7620 




02330 


+007627000000 


OCT 


007627000000 


21 




02331 


00100 00000 


HTR 


0*0*64 


7627 




02332 


+007632000000 


OCT 


007632000000 


36 




02333 


00011 00000 


HTR 


0*0*9 


7632 




02334 


+007720000000 


OCT 


007720000000 


21 




02335 


00077 00000 


HTR 


0*0*63 


7720 




02336 


+007751000000 


OCT 


007751000000 


21 




02337 


-0 00300 00026 


MZE 


22*0*192 


7751 




02340 


+007751000000 


OCT 


007751000000 


36 




02341 


00062 00000 


HTR 


0*0*50 


7751 




02342 


+007760000000 


OCT 


007760000000 


30 




02343 


00052 00000 


HTR 


0*0*42 


7760 




02344 


+016004000000 


OCT 


016004000000 


75 




02345 


00032 00000 


HTR 


0*0*26 


16004 




02346 


01042 00000 


ERLIST HTR 


Q*0*ERLIST-1- 


LOCREC 


DEC HAS NUMB 




03534 


0RG83534 






03534 


-0 53400 4 00313 


ENDPCH LXD 


0RUM»4 






03535 


76200 00304 


RDR 


4 






03536 


46000 00313 


LOA 


DRUM 






03537 


02000 00000 


TRA 









03540 


606060606060 


MACEN BCD 


7 






03541 


606060606060 










03542 


606060606060 










03543 


606060606060 










03544 


606060606060 










03545 


606060606060 










03546 


606060606060 











r,;V 



u 



u 



n 



rv 



03547 


475125626260 


03550 


626321516360 


03551 


312660704664 


03552 


606631623060 


03553 


634660512540 


03554 


516445604751 


03555 


462243254460 


03556 


606060606060 


03557 


606060606060 


03560 


606060606060 


03561 


606060606060 


03562 


606060606060 


03563 


606060606060 


03564 


606060606060 


03565 


606060606060 


03566 


606060606060 


03567 


606060606060 


03570 


606060606060 


03571 


606060606060 


03572 


606060606060 


03573 


465160422570 


03574 


603145600007 


03575 


060000006000 


03576 


000001040160 


03577 


606060606060 


03600 


606060606060 


03601 


606060606060 


03602 


606060606060 


03603 


606060606060 


03604 


606060606060 


03605 


606060606060 


03606 


606060606060 


03607 


606060606060 


03610 


606060606060 


03611 


606060606060 


03612 


606060606060 


03613 


606060606060 


03614 


606060606060 


03615 


606060606060 


03616 


606060606060 


03617 


214524604751 


03620 


256262606263 


03621 


215163603126 


03622 


607046646066 


03623 


316230606346 


03624 


602346456331 


03625 


45*425602221 


03626 


632330602346 


03627 


444731433145 


03630 


276060606060 


03631 


00000 O0000 XZY 




00000 



BCD PRESS START IF YOU WISH TO RE-RUN PROBLEM 



BCO 



BCD OR KEY IN 076000 000141 



BCO 



BCD AND PRESS START IF YOU WISH TO CONTINUE BATCH COMPILING 



END 



C:) 



1 




ORG 3 




FORCE 


NEW RECORD 




1 




00003 




ORG 


3 


FORCE NEW RECORD 




0OO03 


01303 01330 
01303 




HTR 
ORG 


X-1»0»LOCREC 
LOCREC 


CARD FOR DE 


TO 


01303 


3 00000 00003 




TXH 


3 


STOP NOT IN THIS LIST 




01304 


50000 01235 




CLA 


ERWORO 






01305 


77100 00022 




ARS 


18 






01306 


07400 4 00730 




TSX 


0CTBCD»4 






01307 


60200 01315 




SLW 


NOLI ST 






01310 


07400 4 00740 




TSX 


PRINT»4 






01311 


01331 01313 




HTR 


PR»0fPR+14 






01312 


02000 00221 




TRA 


DIGRTN 


• 




01313 


606060606060 


PR 


BCO 


2 






01314 


606060606060 










A 


01315 


00000 00000 


NOLI ST HTR 




. 




01316 


606330316260 




BCD 


THIS ERROR IS 


NOT LISTED IN THE DIAGNC 




01317 


255151465160 












01320 


316260454663 












01321 


604331626325 












01322 


246031456063 












01323 


302560243121 








i 




01324 


274546626331 












01325 


236047514627 












01326 


512144602551 












01327 


514651604331 












01330 


626333606060 




BCD 


1ST. 






01331 


00000 00000 


X 








A 




00000 




END 




... 



«/ 



u 



u 



n 



ORG 4 
00004 01303 



TD 



01303 
01304 
01305 
01306 
01307 
01310 
01311 
01312 
01313 
01314 
01315 
01316 
01317 
01320 
01321 
01322 
01323 
01324 
01325 
01326 
01327 
01330 
01331 
01332 
01333 
01334 
01335 
01336 
01337 
01340 
01341 
01342 
01343 
01344 
01345 
01346 
01347 
01350 
01351 
01352 
01353 
01354 
01355 
01356 
01357 
01360 
01361 
01362 
01363 
01364 



3 00000 
-0 53400 1 

2 00001 1 
-0 53400 1 
-0 63400 1 
-0 53400 1 

76600 
-0 53400 2 

50000 1 
-0 32000 

40200 
-0 32000 

34000 2 

02000 

02000 

1 00002 2 
-3 00076 2 

02000 

50000 2 

62100 

02000 

76400 

76400 

60100 

02000 

00000 1 

76600 

50000 

60100 

02000 

50000 1 
-0 32000 
07400 4 

60200 

07400 4 

01365 

00002 1 
606060606060 
606060606060 
633025602646 
514464432160 
456444222551 
00000 00000 
603162602464 
474331232163 
252460314560 
633025606246 
645123256047 
514627512144 
606060606060 










-3 








00004 

03533 
01303 
00004 
00030 
01307 
01232 
01334 
01232 
00361 
01232 
77777 
01230 
01234 
01230 
03532 
01322 
01325 
01323 
01317 
01330 
03533 
01327 
00000 
00201 
00201 
01235 
00137 
01311 
00361 
00316 
00271 
00272 
77776 
01227 
00676 
01355 
00740 
01350 
01334 



FORCE 
ORG 

HTR 
ORG 
TXH 
LXD 
TIX 
LXD 

A SXD 
LXD 

AB WPR 
LXD 
CLA 
ANA 
SUB 
ANA 

AE CAS 
TRA 
TRA 

AC TXI 

AD TXL 
TRA 

BHAV CLA 
STA 

BA TRA 

NO BST 
BST 
STO 
TRA 

NXTER TXL 
WPR 
CLA 
STO 
TRA 

TEIFNO CLA 
ANA 
TSX 
SLW 
TSX 
HTR 
TXI 

PRTEIF BCD 



NEW RECORD 

4 

X-1»0*L0CREC 

LOCREC 

4 

24*1 

A»l»l 

ZEROtl 

NXTERtl 

ZEROtl 

ZERO* 2 

LIST»1 

DECMSK 

PREFX1 

DECMSK 

ER1PRM»2 

AC 

BHAV 

AD»2*2 

A£»2»62 

NO 

ER1PRM+1»2 

BA 



1 

1 

ERWORD 

LXDA 

AB»1*Q 

HTR4 

DONE+3 

SPEND 

LIST-1 

ADDMSK 

BINDEC 

TBETA 

PRINT* 

PRTEIF 

NXTER* 

2 



• 1 

»4 



FORCE NEW RECORD 
CARD FOR DE 

1 DOUBLE PRIME 

IN DEC OF 24*1 NUMBER OF ENTRIES 

MADE BY NON-ARITHMETIC DIAGNOSTIC 

SET END OF ERROR LIST TEST 

SPACE BETWEEN ERROR COMMENTS 



GET UNCOMPLIMENTED LOCATION 
2 WORD ENTRIES IN THIS LIST 



62 STOPS IN LIST SO FAR 
CANNOT IDENTIFY 



SPACE BACK TO PRINT RECORD ZERO 

AND SAVE OCTAL LOCATION 

NUMBER OF ERROR ENTRIES MINUS 1 
FINISHED WITH ERROR LIST* SPACE PRINTER 



BETA* WHICH IS DUPLICATED IN SOURCE 
PROGRAM* IS IN ADDRESS OF LIST 



»0*PRTEIF+13 

1,2 2WORD ENTRIES IN ERROR LIST 



BCD 3THE FORMULA NUMBER 



TBETA HTR 



BCD 7 IS DUPLICATED IN THE SOURCE PROGRAM 



/ 



?/> 



err 



01365 





50000 





01541 


M1NB1 


CLA 


ADTMI 


01366 





73400 


4 


00000 




PAX 


0*4 


01367 





62100 





01504 




STA 


WHICHA 


01370 


-0 


50000 





01445 




CAL 


Nl 


01371 


1 


00042 


4 


01451 




TXI 


BETAPR»4»34 


01372 





50000 





01541 


MINB2 


CLA 


ADTMI 


01373 





73400 


4 


00000 




PAX 


0*4 


01374 





62100 





01504 




STA 


WHICHA 


01375 


-0 


50000 





01446 




CAL 


N2 


01376 


1 


00042 


4 


01451 




TXI 


BETAPR»4*34 


01377 





50000 





01541 


MINB3 


CLA 


ADTMI 


01400 





73400 


4 


00000 




PAX 


0*4 


01401 





62100 





01504 




STA 


WHICHA 


01402 


-0 


50000 





01447 




CAL 


N3 


01403 


1 


00042 


4 


01451 




TXI 


BETAPR >4» 34 


01404 





50000 





01542 


TSXTFO 


CLA 


ADTZR 


01405 





73400 


4 


00000 




PAX 


0*4 


01406 





62100 





01504 




STA 


WHICHA 


01407 


-0 


50000 





01444 




CAL 


N 


01410 


1 


00042 


4 


01451 




TXI 


BETAPR»4»34 


01411 





50000 





01543 


BTIFG1 


CLA 


ADT1 


01412 





73400 


4 


00000 




PAX 


0*4 


01413 





62100 





01504 




STA 


WHICHA 


01414 


-0 


50000 





01443 




CAL 


SOMN 


01415 


1 


00042 


4 


01451 




TXI 


BETAPR#4»34 


01416 





50000 





01544 


BTIFG2 


CLA 


ADT2 


01417 





02000 





01412 




TRA 


BTIFG1+1 


01420 





50000 





01545 


B1TIF3 


CLA 


ADT3 


01421 





02000 





01366 




TRA 


MINB1+1 


01422 





50000 





01545 


B2TIF3 


CLA 


ADT3 


01423 





02000 





01373 




TRA 


MINB2+1 


01424 





50000 





01546 


B1TIF4 


CLA 


ADT4 


01425 





02000 





01366 




TRA 


MINB1+1 


01426 





50000 





01546 


B2TIF4 


CLA 


ADT4 


01427 





02000 





01373 




TRA 


MINB2+1 


01430 





50000 





01547 


B1TIF5 


CLA 


ADT5 


01431 





02000 





01366 




TRA 


MINB1+1 


01432 





50000 





01547 


B2TIF5 


CLA 


ADT5 


01433 





02000 





01373 




TRA 


MINB2+1 


01434 





50000 





01550 


TIF6B 


CLA 


ADT6 


01435 





02000 





01405 




TRA 


TSXTFO+1 


01436 





50000 





01551 


DONOBT 


CLA 


ADDO 


01437 





73400 


4 


00000 




PAX 


0*4 


01440 





62100 





01504 




STA 


WHICHA 


01441 


-0 


50000 





01450 




CAL 


B 


01442 


1 


00016 


4 


01451 




TXI 


BETAPR»4*14 


01443 


624644256045 


SOMN 


BCD 


1S0ME N 


01444 


456060606060 


N 


BCD 


IN 


01445 


450160606060 


Nl 


BCD 


INI 


01446 


450260606060 


N2 


BCD 


1N2 


01447 


450360606060 


N3 


BCD 


1N3 


01450 


226060606060 


B 


BCD 


IB 


01451 


-0 


63400 


4 


01504 


BETAPR 


SXD 


WHICHA*4 


01452 





60200 





01526 




SLW 


BETAWD 



SELECT ADDRESS OF PARTICULAR TIFGO ENTRY 
FOR PRINT ROUTINE 

AND PICK UP BCD FOR COMMENT 

ADD LENGTH OF COMMENT TO ADDRESS 



SAME PROCESS AS FOR TIFGO ENTRIES 



SOME TIFGO* OR D0» STATEMENT REFERS TO 
A NONEXISTANT BETA 



f, i 



u 



u 



n 



n 



01453 56000 01526 

01454 -0 50000 01525 

01455 77100 00022 
014*6 -0 76300 00022 
01457 60200 01525 

01460 "0 76300 00022 

01461 56000 00717 

01462 -0 76300 00022 

01463 60200 01526 

01464 50000 1 77777 

01465 07400 4 00613 

01466 07400 4 00602 

01467 60200 01513 

01470 56000 01513 

01471 -0 50000 01512 

01472 77100 00006 

01473 -b 76300 00006 

01474 60200 01512 

01475 -0 76300 00036 

01476 56000 00717 

01477 -0 76300 00006 

01500 60200 01513 

01501 07400 4 00740 

01502 01541 01506 

01503 07400 4 00740 

01504 00000 00000 

01505 1 00001 1 01334 

01506 606060606060 

01507 606060606060 

01510 626321632544 

01511 254563604564 

01512 442225516060 

01513 00000 00000 

01514 512526255162 

01515 606346602160 

01516 454645402567 

01517 316263254563 

01520 602646514464 

01521 432160456444 

01522 222551602346 

01523 515125624746 

01524 452431452760 

01525 634660606060 

01526 606060606060 

01527 606060606060 

01530 606060606060 

01531 606060606060 

01532 606060606060 

01533 606060606060 

01534 314560633025 

01535 606370472560 

01536 462660626321 

01537 632544254563 
01540 606060606060 



LDQ 
CAL 
ARS 
LGL 
SLW 
LGL 
LDQ 
LGL 
SLW 
CLA 
TSX 
TSX 
SLW 
LDQ 
CAL 
ARS 
LGL 
SLW 
LGL 
LDQ 
LGL 
SLW 
TSX 
HTR 
TSX 

WHICHA 

TXI 

NOBETA BCD 



BETAWD 

BETAWD-1 

18 

18 

BETAWD-1 

18 

BLANKS 

18 

BETAWD 

LIST»1 

EXBETAt4 

LA JUST »4 

FORMNB 

FORMNB 

FORMNB-1 

6 

6 

FORMNB-1 

30 

BLANKS 

6 

FORMNB 

PRINT»4 

NOBETA »0»NOBETA+27 

PRINT»4 

NXTER»1»1 
2 



MOVE WORD INTO COMMENT 



MOVE EXTERNAL FORMULA NUMBER 
INTO COMMENT 



X WORD ENTRY IN ERROR LIST 



BCD 3STATEMENT NUMBER 



FORMNB HTR 
BCD 



REFERS TO A NON-EXISTENT FORMULA NUMBER CORRESPONDING TO 



BETAWD BCD 6 



BCD 5IN THE TYPE OF STATEMENT 



>/ 



015*1 


00000 01552 


ADTMI 


HTR 


TISMIN 


01542 


00000 01614 


ADTZR 


HTR 


TISZRO 


01543 


00000 01656 


ADT1 


HTR 


TIS1 


01544 


00000 01720 


ADT2 


HTR 


TIS2 


01545 


00000 01762 


ADT3 


HTR 


TIS3 


01546 


00000 02024 


ADT4 


HTR 


TIS4 


01547 


00000 .02066 


ADT5 


HTR 


TIS5 


01550 


00000 '02130 


ADT6 


HTR 


TIS6 


01551 


00000 02172 


AODO 


HTR 


DOS 


01552 


606060606060 


TISMIN 


BCD 


4 


01553 


606060606060 








01554 


606060606060 








01555 


606060606060 








01556 


602160603126 




BCD 


A I 


01557 


607460256034 








01560 


604501736045 








01561 


027360450360 








01562 


606060606060 








01563 


606060606060 








01564 


606060606060 








01565 


606060606060 








01566 


606060606060 








01567 


606060606060 








01570 


606060606060 




BCD 




01571 


606060606060 








01572 


606060606060 








01573 


606060606060 








01574 


606060606060 








01575 


606060606060 








01576 


606060606060 








01577 


606060606060 








01600 


606060606060 






,. 


01601 


606060606060 








01602 


606060606060 




BCD 




01603 


606060606060 








01604 


606060606060 








01605 


606060606060 








01606 


606060606060 








01607 


606060606060 








01610 


606060606060 








01611 


606060606060 








01612 


606060606060 








01613 


606060606060 








01614 


606060606060 


TISZRO 


BCD 


4 


01615 


606060606060 








01616 


606060606060 








01617 


606060606060 








01620 


602160602746 




BCD 


A G 


01621 


606346604560 








01622 


606060606060 








01623 


606060606060 








01624 


606060606060 








01625 


606060606060 








01626 


606060606060 









( E ) Nl» N2» N3 



TO N 



<ft't 



U 



U 



n 



01627 
01630 
01631 
01632 
01633 
01634 
01635 
01636 
01637 
01640 
01641 
01642 
01643 
01644 
01645 
01646 
01647 
01650 
01651 
01652 
01653 
01654 
01655 
01656 
01657 
01660 
01661 
01662 
01663 
01664 
01665 
01666 
01667 
01670 
01671 
01672 
01673 
01674 
01675 
01676 
01677 
01700 
01701 
01702 
01703 
01704 
01705 
01706 
01707 
01710 
01711 
01712 
01713 
01714 



606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
602160602746 
606346604360 
746045017360 
450273604544 
503460606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 



BCD 



BCD 



TIS1 BCD 4 



BCD A GO TO L I Nl# N2» NM ) 



BCD 



BCD 



'/" 



01715 
01716 
01717 
01720 
01721 
01722 
01723 
01724 
01725 
01726 
01727 
01730 
01731 
01732 
01733 
01734 
01735 
01736 
01737 
01740 
01741 
01742 
01743 
01744 
01745 
01746 
01747 
01750 
01751 
01752 
01753 
01754 
01755 
01756 
01757 
01760 
01761 
01762 
01763 
01764 
01765 
01766 
01767 
01770 
01771 
01772 
01773 
01774 
01775 
01776 
01777 
02000 
02001 
02002 



606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
602160602746 
606346607460 
450173604502 
736045446034 
604160606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
602160603126 
607460622545 
622560626631 
632330604260 
346045017360 
450260606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 



TIS2 BCD 4 



BCD A GO TO { Nl» N2» NM ) J 



BCD 



BCD 



TIS3 BCD 4 



BCD A IF ( SENSE SWITCH K ) Nl» N2 



BCD 9 



t f rC 



u 



o 



n 



02003 
02004 
02005 
02006 
02007 
02010 
02011 
02012 
02013 
02014 
02015 
02016 
02017 
02020 
02021 
02022 
02023 
02024 
02025 
02026 
02027 
02030 
02031 
02032 
02033 
02034 
02035 
02036 
02037 
02040 
02041 
02042 
02043 
02044 
02045 
02046 
02047 
02050 
02051 
02052 
02053 
02054 
02055 
02056 
02057 
02060 
02061 
02062 
02063 
02064 
02065 
02066 
02067 
02070 



606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
465160606060 
602160603126 
607460622545 
622560433127 
306360426034 
604501736045 
026060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
602160603126 
602431653124 
256023302523 
426045017360 
450260606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 



BCD 10R 

BCD A IF { SENSE LIGHT K ) Nl» N2 



TIS4 BCD 4 



BCD A IF DIVIDE CHECK Nl» N2 



BCD 



BCD 



TIS5 BCD 4 



/ f 



C5T 



02071 606C60606060 

02072 602160603126 

02073 602123236444 

02074 644321634651 

02075 604665255126 

02076 434666604501 

02077 736045026060 

02100 606060606060 

02101 606060606060 

02102 606060606060 

02103 606060606060 

02104 606060606060 

02105 606060606060 

02106 606060606060 

02107 606060606060 

02110 606060606060 

02111 606060606060 

02112 606060606060 

02113 606060606060 

02114 606060606060 

02115 465160606060 

02116 602160603126 

02117 605064466331 

02120 254563604665 

02121 255126434666 

02122 604501736045 

02123 026060606060 

02124 606060606060 

02125 606060606060 

02126 606060606060 

02127 606060606060 

02130 606060606060 

02131 6O6060606060 

02132 606060606060 

02133 606060606060 

02134 602160602162 

02135 623127456042 

02136 606346604560 

02137 606060606060 

02140 606060606060 

02141 606060606060 

02142 606060606060 

02143 606060606060 

02144 606060606060 

02145 606060606060 

02146 606060606060 

02147 606060606060 

02150 606060606060 

02151 606060606060 

02152 606060606060 

02153 606060606060 

02154 606060606060 

02155 606060606060 

02156 606060606060 



BCD A IF ACCUMULATOR OVERFLOW Nl» N2 



BCD 9 



BCD 10R 

BCD A IF QUOTIENT OVERFLOW Nit N2 



TIS6 BCD 4 



BCD A ASSIGN K TO N 



BCD 



o 



(J 



02157 
02160 
02161 
02162 
02163 
02164 
02165 
02166 
02167 
02170 
02171 
02172 
02173 
02174 
02175 
02176 
02177 
02200 
02201 
02202 
02203 
02204 
02205 
02206 
02207 
02210 
02211 
02212 
02213 
02214 
02215 
02216 
02217 
02220 
02221 
02222 
02223 
02224 
02225 
02226 
02227 
02230 
02231 
02232 
02233 
02234 
02235 
02236 
02237 
02240 
02241 
02242 
02243 
02244 



606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
60606060,6060 
606060606060 
602160602446 
602260316013 
604501736045 
027360450360 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 

-0 53400 4 02256 
50000 
76700 

-0 32000 
40200 



BCD 



77777 
00022 
01230 
01234 
01230 
02256 
02221 
02223 
02216 
01330 
02257 
02225 
00000 



-0 32000 

34000 

02000 

02000 

2 00002 

02000 

50000 

62100 

02000 
4000316000000 

00000 02257 
+000327000000 

00000 02261 
+000337000000 

00000 02262 
+000352000000 

00000 02263 
+000374000000 

00000 02265 
+000421000000 

00000 02267 
+000443000000 

00000 02271 
+000453000000 



DOS 



BCD 4 



BCD 



A DO B I * Nl» N2» N3 



TSXH LXD 
CLA 
ALS 
ANA 
SUB 
ANA 

TSHCAS CAS 
TRA 
TRA 

TSXH1 TIX 
TRA 

HVNOX CLA 
STA 

TSHTRA TRA 
OCT 
HTR 
OCT 
HTR 
OCT 
HTR 
OCT 
HTR 
OCT 
HTR 
OCT 
HTR 
OCT 
HTR 
OCT 



XTABLE.4 

LIST»1 

18 

DECMSK 

PREFX1 

DECMSK 

XT ABLE »4 

TSXH1 

HVNOX 

TSHCAS»4»2 

NO 

XTABLE+1»4 

TSHTRA 

000316000000 

SAVEB1 

000327000000 

SAVEB2 

000337000000 

SAVEB3 

000352000000 

TIFOB 

000374000000 

TRADX1 

000421000000 

TRADX2 

000443000000 

TIF3B1 

000453000000 



FIND THE KIND OF TIFGO ENTRY WHICH 
IS TRYING TO TURN CONTROL OVER TO A 
NON-EXECUTABLE STATEMENT 



CANNOT IDENTIFY* PRINT OCTAL LOCATION 



^ 



~3~8~r 



02245 





ooooo 





02273 




02246 


+000467000000 




02247 





ooooo 





02274 




02250 


+000477000000 




02251 





ooooo 





02276 




02252 


+000513000000 




02253 





ooooo 





02277 




02254 


+000523000000 




02255 





ooooo 





02300 




02256 





00030 





OOOOO 


XTABLE 


02257 





50000 





01541 


SAVEB1 


02260 





02000 





02301 




02261 





02000 





02257 


SAVEB2 


02262 





02000 





02257 


SAVEB3 


02263 





50000 





01542 


TIFOB 


02264 





02000 





02301 




02265 





50000 





01543 


TRADX1 


02266 





02000 





02301 




02267 





50000 





01544 


TRADX2 


02270 





02000 





02301 




02271 





50000 





01545 


TIF3B1 


02272 





02000 





02301 




02273 





02000 





02271 


T1F3B2 


02274 





50000 





01546 


TIF4B1 


©2275 





02000 





02301 




02276 





02000 





02274 


TIF4B2 


02277 





O2000 





02300 


TIF5B1 


02300 





50000 





01547 


TIF5B2 


02301 





62100 





02343 


NOXBTA 


02302 





40000 





02401 




02303 





76700 





00022 




02304 





62200 





02343 




02305 





50000 


1 


77776 




02306 





07400 


4 


00613 




02307 





07400 


4 


00602 




02310 





60200 





01257 




02311 


-0 


50000 





02364 




02312 





77100 





00014 




02313 





56000 





01257 




02314 


-0 


76300 





00014 




02315 





60200 





02364 




02316 


-0 


76300 





00030 




02317 





56000 





00717 




02320 


-0 


76300 





00014 




02321 





60200 





02365 




02322 





50000 


1 


77776 




02323 





77100 





00022 




02324 





07400 


4 


00613 




02325 





07400 


4 


00602 




02326 





60200 





01257 




02327 


-0 


50000 





02351 




02330 





56000 





01257 




02331 





77100 





00006 




02332 


^0 


76300 





00006 





HTR TIF3B2 

OCT 000467000000 

HTR TIF4B1 • 

OCT 000477000000 

HTR TIF4B2 

OCT 000513000000 

HTR T1F5B1 

OCT 000523000000 

HTR TIF5B2 

HTR 0*0*24 

CLA ADTMI 

TRA NOXBTA 

TRA SAVEB1 

TRA SAVEB1 

CLA ADTZR 

TRA NOXBTA 

CLA ADT1 

TRA NOXBTA 

CLA ADT2 

TRA NOXBTA 

CLA ADT3 

TRA NOXBTA 

TRA TIF3B1 

CLA ADT4 

TRA NOXBTA 

TRA TIF4B1 

TRA TIF5B2 

CLA ADT5 

STA AODTD 

AOD DEC34 

ALS 18 

STD ADDTD 

CLA LIST-1»1 

TSX EXBETA»4 

TSX LAJUST#4 

SLW ERAS 

CAL TIFOR 

ARS 12 

LOG) ERAS 

LGL 12 

SLW TIFOR 

LGL 24 

LDQ BLANKS 

LGL 12 

SLW TIFOR+1 

CLA LIST-1»1 

ARS 18 

TSX EXBETA»4 

TSX LA JUST ♦* 

SLW ERAS 

CAL NONB-1 

LDQ ERAS 

ARS 6 

LGL 6 



A TIFGO STATEMENT HAS ATTEMPTED TO 
TURN OVER CONTROL OP THE PROGRAM TO A 
NON EXECUTABLE STATEMENT 

GET EXTERNAL NUMBER OF TIFGO ENTRY 



GET EXTERNAL NUMBER OF STATEMENT 
WHICH IS NOT EXECUTABLE 



U 



u 



n 



02333 

02334 

02335 

02336 

02337 

02340 

02341 

02342 

02343 

02344 

02345 

02346 

02347 

02350 

02351 

02352 

02353 

02354 

02355 

02356 

02357 

02360 

02361 

02362 

02363 

02364 

02365 

02366 

02367 

02370 

02371 

02372 

02373 

02374 

02375 

02376 

02377 

02400 

02401 

02402 

02403 

02404 

02405 

02406 

02407 

02410 

02412 

02412 

02413 

02414 

02415 

02416 

02417 

02420 



00717 
00006 
02352 
00740 
02345 
00740 
00000 ADDTD 



60200.0 02351 
-0 76300 00036 

56000 
-0 76300 

60200 

07400 4 

02401 

07400 4 

00000 

1 00002 1 01334 
606060606060 
606060606060 
626321632544 
254563604564 
442225516060 

00000 00000 NONB 

316260454663 

602567252364 

632122432533 

606031636031 

626051252625 

515125246063 

466022706062 

632163254425 

456360456444 

222551606060 

606060606060 

606060606060 

606060606060 

606060606060 

606060606060 

606060606060 

663031233060 

316260462660 

633025602646 

434346663145 

276063704725 

606060606060 

00000 00042 DEC34 

77776 DOBTNX 

00527 

77775 

00530 

00740 

02412 

00505 

01334 



SLW NONB-1 

LGL 30 

LOO BLANKS 

LGL 6 

SLW NONB 

TSX PR I NT #.4 

HTR BTNONX»0»BTNONX+28 

TSX PRINT»4 

HTR 



TXI NXTER»1#2 
BTNONX BCD 2 

BCD 2STATEMENT NU 



BCD 1MBER 

HTR 

BCD 9IS NOT EXECUTABLE. 



2W0RD ENTRY IN ERROR LIST 



IT IS REFERRED TO BY STATEMENT NUM 



TIFOR BCD 7BER 



BCD 6WHICH IS OF THE FOLLOWING TYPE 



5G000 

60100 

50000 

60100 

07400 

02426 

07400 

00003 
606060606060 
606060606060 
633025605121 
452725604626 
606330316260 
244660254524 
626066316330 



DOBTX 



HTR 34 

CLA LIST-1»1 

STO ALFBET 

CLA LIST-2»1 

STO SYM 

TSX PRINT»4 

HTR D0BTX»0#D0BTX+12 

TSX FX4PR»4 

TXI NXTERtl»3 

BCD 2 



BETA IS NOT AN EXECUTABLE STATEMENT 
IN ALPHA DO BETA 



PRINT DO STATEMENT 

3 WORD ENTRY IN ERROR LIST 



BCD THE RANGE OF THIS DO ENDS WITH A NON-EXECUTABLE STATEMENT 



/ 



;f 5 



1 L 



02421 


602160454645 




02422 


402567252364 




02423 


632122432560 




02424 


626321632544 




02425 


254563606060 




02426 


50000 1 77776 CONBET CLA LlST-ltl 


02427 


60100 00527 


STO ALFBET 


02430 


50000 1 77775 


CLA LIST-2*1 


02431 


60100 00530 


STO SYM 


02432 


07400 4 00740 


TSX PRINT*4 


02433 


02453 02436 


HTR CONBT»0»CONBT+13 


02434 


07400 4 00505 


TSX FX4PR»4 


02435 


1 00003 1 01334 


TXI NXTER*1*3 


02436 


606060606060 CONBT 


BCD 2 * 


02437 


606060606060 




02440 


633025605121 


BCD THE RANGE OF TH 


02441 


452725604626 




02442 


606330316260 




02443 


244660254524 




02444 


626066316330 




02445 


602160234645 




02446 


243163314645 




02447 


214360635121 




02450 


456226255160 




02451 


626321632544 




02452 


254563606060 


BCD 1ENT 


02453 


50000 1 77776 DOALNX 


CLA LIST-1»1 


02454 


60100 00527 


STO ALFBET 


02455 


50000 1 77775 


CLA LIST-2»1 


02456 


60100 00530 


STO SYM 


02457 


07400 4 00740 


TSX PRlNTf4 


02460 


02502 02463 


HTR DOALX»0»DOALX+15 


02461 


07400 4 00505 


TSX FX4PRf4 


02462 


1 00003 1 01334 


TXI NXTER*1»3 


02463 


606060606060 DOALX 


BCD 2 


02464 


606060606060 




02465 


633025606263 


BCD THE STATEMENT IN 


02466 


216325442545 




02467 


636031444425 




02470 


243121632543 




02471 


706026464343 




02472 


466631452760 




02473 


633031626024 




02474 


466031626045 




02475 


466360214560 




02476 


256725236463 




02477 


212243256062 


BCD 3ABLE STATEMENT 


02500 


632163254425 




02501 


456360606060 




02502 


50000 1 77777 CHBTSX 


CLA LIST»1 


02503 


76700 00022 


ALS 18 


02504 - 


-0 32000 01230 


ANA DECMSK 


02505 


40200 01234 


SUB PREFX1 


02506 - 


-0 32000 01230 


ANA DECMSK 



IN ALPHA DO BETA* BETA IS A CONDITIONAL 
TRANSFER* THAT IS* A TIFGO ENTRY 



PRINT DO STATEMENT 

3 WORD ENTRY IN ERROR LIST 



THIS DO ENDS WITH A CONDITIONAL TRANSFER STATEM 



ALPHA PLUS 1* IN ALPHA DO BETA* 
IS NOT EXECUTABLE 



PRINT DO STATEMENT 

3 WORD ENTRIES IN ERROR LIST 



THE SYMBOL* OR A VARIABLE IN A DO STATEMENT 
DOES NOT BEGIN WITH I J K ETC 

CONVERT TSX TO NUMBER OF STOP WHERE THIS 



u 



o 



02507 





53400 


4 


01232 


LXA 


2ER0»4 


02510 





34000 


4 


02621 CH8CAS 


CAS 


BL1ST-1»4 


02511 





02000 





02513 


TRA 


CHBTXI 


02512 





02000 





02516 


TRA 


HVCHB 


02513 


1 


00002 


4 


02514 CHBTXI 


TXI 


CHBTXL*4*2 


02514 


-3 


00006 


4 


02510 CH8TXL 


TXL 


CHBCAS»4»6 


02515 





02000 





01330 


TRA 


NO 


02516 


-0 


50000 


4 


02622 HVCHB 


CAL 


BLISTt4 


02517 





10000 





02623 


TZE 


CHBDO 


02520 





56000 


4 


02622 


LDQ 


BLIST»4 


02521 


-0 


50000 





02602 


CAL 


THE 


02522 





77100 





00014 


ARS 


12 


02523 


-0 


76300 





00014 


LGL 


12 


02524 





60200 





02602 


SLW 


THE 


02525 


-0 


76300 





00006 


LGL 


6 


02526 





56000 





02603 


LOQ 


THE+1 


02527 


-0 


77300 





00006 


RQL 


6 


02530 


-0 


76300 





00036 


LGL 


30 


02531 





60200 





02603 


SLW 


THE+1 


02532 





50000 


1 


77775 


CLA 


LIST-2#1 


02533 





60100 





00527 


STO 


ALFBET 


02534 





50000 


1 


77774 


CLA 


LIST-3»1 


02535 





60100 





00530 


STO 


SYM 


02536 


-0 


50000 


1 


77776 


CAL 


LIST-1»1 


02537 





07400 


4 


00543 


TSX 


ZER0UT»4 


02540 





07400 


4 


00565 


TSX 


RAJUST*4 


02541 





60200 





01257 


SLW 


ERAS 


02542 





56000 





01257 


LOQ 


ERAS 


02543 


-0 


50000 





02606 


CAL 


DOPRAM 


02544 





77100 





00014 


ARS 


12 


02545 


-0 


76300 





00014 


LGL 


12 


02546 





60200 





02606 


SLW 


DOPRAM 


02547 


-0 


76300 





00030 


LGL 


24 


02550 





56000 





02607 


LDQ 


DOPRAM+1 


02551 


-0 


77300 





00030 


RQL 


24 


02552 


-0 


76300 





00014 


LGL 


12 


02553 





60200 





02607 


SLW 


DOPRAM+1 


02554 





07400 


4 


00740 


TSX 


PRINT»4 


02555 





02600 





02562 


HTR 


VR8L»0*VRBL+l4 


02556 





07400 


4 


00505 


TSX 


FX4PRt4 


02557 





07400 


4 


00740 


TSX 


PRINT»4 


02560 





02613 





02600 


HTR 


VRPR»0»VRPR+11 


02561 


1 


O0004 


1 


01334 


TXI 


NXTER»1*4 


02562 


606060606060 VRBL 


BCD 


2 


02563 


606060606060 






02564 


214560314563 


BCD 


AN INTEGER VA 


02565 


252725516065 






02566 


215131212243 






02567 


256044646263 






02570 


602225273145 






02571 


606631633060 






02572 


316041604260 






02573 


436044604651 






02574 


604533606031 







WAS PICKED UP 

DETERMINE WHETHER SYMBOL* Nl» N2 OR N3 



CANNOT IDENTIFY* PRINT ERROR RECORD ZERO 

BCD FOR N1*N2 OR N3» BUT INDEXING 

SYMBOL IS ZERO* WILL BE PROCESS BY ITSELF 

MOVE PARAMETER INTO COMMENT 



SHIFT FIRST BLANK. OUT OF MO 



ARRANGE TO PRINT DO STATEMENT 



REMOVE ZEROS FROM VARIABLE NAME AND 
ADJUST TO RIGHT 



PUT HALF OF WORD IN COMMENT 



PUT IN OTHER HALF 



PRINT DO STATEMENT 



4 WORD ENTRIES IN ERROR LIST 



AN INTEGER VARIABLE MUST BEGIN WITH I J K L M OR N. IN THE 



k-7 



02575 456063302560 

02576 244660626321 

02577 632544254563 

02600 606060606060 

02601 606060606060 

02602 633025606060 

02603 606031452425 

02604 673145276047 

02605 215121442563 

02606 255173606060 

02607 606060607360 

02610 316260314523* 

02611 465151252363 

02612 336060606060 

02613 +000716000000 

02614 035124606060 

02615 +000703000000 

02616 024524606060 

02617 +000670000000 

02620 016263606060 

02621 +000656000000 

02622 00000 00000 

02623 50000 1 77775 

02624 60100 00527 

02625 50000 1 77774 

02626 60100 00530 

02627 07400 4 00740 

02630 02656 02633 

02631 07400 4 00505 

02632 1 00004 1 01334 

02633 606060606060 

02634 606060606060 

02635 214560314563 

02636 252725516065 

02637 215131212243 

02640 256044646263 

02641 602225273145 

02642 606631633060 

02643 316041604260 

02644 436044604651 

02645 604533606063 

02646 302560314524 

02647 256760627044 

02650 224643603162 

02651 603145234651 

02652 512523636031 

02653 456063302560 

02654 626321632544 

02655 254563606060 

02656 -0 53400 2 01232 

02657 50000 1 77777 

02660 76700 00022 

02661 -0 32000 01230 

02662 40200 01234 



BCD 200 STATEMENT 

VRPR BCD 2 

THE BCD 1THE 

BCD 3 INDEXING PARAMET 



DOPRAM BCD 1ER» 

BCD 4 » IS INCORRECT. 



BUST 
CHBDO 



OCT 
BCD 
OCT 
BCD 
OCT 
BCD 
OCT 
HTR 
CLA 
STO 



IJKN3 IN NON-ARITH DIAG 



IJKN2 



IJK.N1 

IJKSYM 

ZERO INDICATES TO PROGRAM THIS IS SYMBOL 

ARRANGE TO PRINT DO STATEMENT 



000716000000 

13RD 

000703000000 

12ND 

000670000000 

11ST 

000656000000 



LIST-2#1 

ALFBET 
CLA LIST-3»1 
STO SYM 
TSX PRINTS 

HTR CHDOPR»0»CHDOPR+19 
TSX FX4PR»4 

TXI NXTERtl»4 4 WORD ENTRIES IN ERROR LIST 

CHDOPR BCD 2 

BCD AN INTEGER VARIABLE MUST BEGIN WITH I J K L M OR N. THE IND 



BCD 7EX SYMBOL IS INCORRECT IN THE STATEMENT 



CHATSX LXD ZER0«2 
CLA LIST»1 
ALS 18 
ANA DECMSK 
SUB PREFX1 



AN ILLEGAL CHARACTER HAS BEEN FOUND IN 
SOME NAME 

UNCOMPLIMENTED LOCATION WILL SHOW 
KIND OF STATEMENT USING THIS NAME 



u 



u 



02663 
02664 
02665 
02666 
02667 
02670 
02671 
02672 
02673 
02674 
02675 
02676 
02677 
02700 
02701 
02702 
02703 
02704 
02705 
.02706 
02707 
02710 
02711 
02712 
02713 
02714 
02715 
02716 
02717 
02720 
02721 
02722 
02723 
02724 
02725 
02726 
02727 
02730 
02731 
02732 
02733 
02734 
02735 
02736 
02737 
02740 
02741 
02742 
02743 
02744 
02745 
02746 
02747 
02750 



-0 32000 01230 
34000 2 02704 
02000 02667 

02000 02717 

1 00002 2 02670 
-3 00006 2 02664 

34000 2 02716 
02000 02674 
02000 03020 

2 00002 2 02671 
02000 01330 

+000131000000 
00000 03000 

+000143000000 
00000 02770 

+000163000000 
00000 03010 

+000175000000 
00000 02760 

+000653000000 
00000 00000 

+000665000000 
600162636031 

+000700000000 
600245246031 

+000713000000 
600351246031 
00000 00000 
50000 2 02705 
62100 0*02722 

-0 53400 2 01232 
50000 2 00000 

60100 2 02750 

1 77777 2 02725 

3 77770 2 02722 
-0 50000 1 77776 

07400 4 00543 
07400 4 00565 
60200 02741 
07400 4 00740 
02760 02735 
00002 1 01334 
606060606060 
606060606060 
633025606270 
442246437360 
00000 00000 
736023464563 
213145626021 
456031434325 
272143602330 
215121236325 
513360603163 
606060606060 



CB 



TXIC 

CA 

CC 



CTIX 



CHA2WD 



CHA3WD 
FR2WD 



CHACLA 
CHATXH 



PRCHA 



ANA DECMSK 

CAS CHA2WD#2 

TRA TXIC 

TRA PR2WD 

TXI CA»2»2 

TXL C8#2»6 

CAS CHA3WD>2 

TRA CTIX 

TRA PR 3 WD 

TIX CC*2»2 

TRA NO 

OCT 000131000000 

HTR FRSB 

OCT 000143000000 

HTR SZ 

OCT 000163000000 

HTR SBAR 

OCT 000175000000 

HTR CMON 

OCT 000653000000 

HTR 

OCT 000665000000 

BCD 1 1ST I 

OCT 000700000000 

BCD 1 2ND I 

OCT 000713000000 

BCD 1 3RD I 

CLA CHA2WD+1»2 

STA CHACLA 

LXD ZER0*2 

CLA 0*2 

STO DA i 2 

TXI CHATXH»2»-1 

TXH CHACLA »2*-8 

CAL LIST-ltl 

TSX ZER0UT«4 

TSX RAJUST#4 

SLW D 

TSX PRINT.4 

HTR PRCHA »0»PRCHA+ 19 

TXI NXTER*1»2 

BCD 2 

BCD 2 THE SYMBOL* 



IS THIS FROM ONE OF THE SIZ* COMMON 
FUNCTION ETC.* STATEMENTS 



OR DOES THE NAME APPEAR IN A DO STATEMENT 

PRINT UNIDENTIFYABLE STOP 

TSXA IN NON ARITH DIAG 

TSXB 

TSXC 

TSXD 

PUNSYN 

PUNN1 

PUNN2 

PUNN3 

PRINT IDENTIFICATION OF STATEMENT 
IN WHICH NAME WAS FOUND 
TRANSFER 8 WORDS ABOUT STATEMENT 
INTO COMMENT 

UNPACK NAME AND MOVE TO RIGHT 

2 WORD ENTRY IN ERROR LIST 



DA 



HTR 

BCD 6* CONTAINS AN ILLEGAL CHARACTER. IT 



BCD 8 



l«" 



~ET8~I 



02751 


606060606060 


02752 


606060606060 


02753 


606060606060 


02754 


606060606060 


02755 


606060606060 


02756 


606060606060 


02757 


606060606060 


02760 


602147472521 CMON 


02761 


516260314560 


02762 


216023464444 


02763 


464560626321 


02764 


632544254563 


02765 


336060606060 


02766 


606060606060 


02767 


606060606060 


02770 


602147472521 SZ 


02771 


516260314560 


02772 


216024314425 


02773 


456231464560 


02774 


626321632544 


02775 


254563336060 


02776 


606060606060 


02777 


606060606060 


03000 


602147472521 FRSB 


03001 


516260216260 


03002 


633025604521 


03003 


442560462660 


03004 


216026465163 


03005 


512145602664 


03006 


452363314645 


03007 


336060606060 


03010 


602147472521 SBAR 


03011 


516260216260 


03012 


214560215127 


03013 


644425456360 


03014 


462660216062 


03015 


642251466463 


03016 


314525336060 


03017 


606060606060 


03020 


50000 2 02717 PR3WD 


03021 


10000 03060 


03022 


60100 03047 


03023 " 


-0 50000 1 77776 


03024 


07400 4 00543 


03025 


07400 4 00565 


03026 


60200 03053 


03027 


07400 4 00740 


03030 


03060 03037 


03031 


50000 1 77775 


03032 


60100 00527 


03033 


50000 1 77774 


03034 


60100 00530 


03035 


07400 4 00505 


03036 


1 00004 1 01334 



BCD 8 APPEARS IN A COMMON STATEMENT. 



BCD 8 APPEARS IN A DIMENSION STATEMENT. 



BCD 8 APPEARS AS THE NAME OF A FORTRAN FUNCTION. 



BCD 8 APPEARS AS AN ARGUMENT OF A SUBROUTINE. 



CLA CHA3WD+lt2 

T2E SYMDO 

STO PAR 

CAL LIST-1#1 

TSX ZER0UT»4 

TSX RAJUST»4 

SLW WRPAR 

TSX PRINT.4 

HTR PARAPR»0»PARAPR+17 

CLA LIST-2»1 

STO ALFBET 

CLA LIST-3.1 

STO SYM 

TSX FX4PR»4 

TXI NXTERtl.4 



1ST#2ND»0R 3RD PARAMETER 
ZERO IF SYMBOL REFERED TO 

UNPACK NAME AND MOVE TO RIGHT 



PRINT ALPHA TO BETA STATEMENT AND 
SYMBOL 



4 WORD ENTRIES IN ERROR LIST 



/ 



i'j 



u 



u 



03037 


606060606060 


03040 


606060606060 


03041 


633025512560 


03042 


316260214560 


03043 


314343252721 


03044 


436023302151 


03045 


212363255160 


03046 


314560633025 


03047 


00000 00000 


03050 


452425673145 


03051 


276047215121 


03052 


442563255160 


03053 


0-00000 00000 


03054 


736046266063 


03055 


302560244660 


03056 


626321632544 


03057 


254563606060 


03060 


07400 4 00740 


03061 


03106 03070 


03062 


50000 1 77775 


03063 


60100 00527 


03064 


50000 1 77774 


03065 


60100 00530 


03066 


07400 4 00505 


03067 


1 00004 1 01334 


03070 


606060606060 


03071 


606060606060 


03072 


633025512560 


03073 


316260214560 


03074 


314343252721 


03075 


436023302151 


03076 


212363255160 


03077 


314560633025 


03100 


603145242567 


03101 


314527606270 


03102 


442246436Q46 


03103 


266063302560 


03104 


244660626321 


03105 


632544254563 


03106 


50000 1 77777 


03107 


-0 32000 01227 


03110 


07400 4 00613 


03111 


07400 4 00602 


03112 


60200 03137 


03113 


07400 4 00740 


03114 


03140 03116 


03115 


1 00001 1 01334 


03116 


606060606060 


03117 


606060606060 


03120 


216047215163 


03121 


604626606330 


03122 


256047514627 


03123 


512144602321 


03124 


454546636022 



PARAPR BCD 2 

BCD 6THERE IS AN ILLEGAL CHARACTER IN THE 



PAR 



HTR 

BCD 3NDEXING PARAMETER 



WRPAR HTR 

BCD 4> OF THE DO STATEMENT 



SYMDO TSX PR I NT* 4 

HTR SYMDPR»0»SYMDPR+14 

CLA LIST-2»1 

STO ALFBET PRINT ALPHA DO BETA FOR SYMBOL 

CLA LIST-3»1 WITH ILLEGAL CHARACTER 

STO SYM 

TSX FX4PR»4 

TXI NXTER»1*4 4 WORD ENTRIES IN ERROR LIST 

SYMDPR BCD 2 



BCD THERE IS AN ILLEGAL CHARACTER IN THE INDEXING SYMBOL OF THE 



BCD 2D0 STATEMENT 



NOTRA 



ALPHA+1* INTERNAL FORMULA NUMBER* 
IN ADDRESS OF LIST. THIS IS NUMBER OF AN 
EXECUTABLE STATEMENT WHICH FOLLOWS A 
TIFGO ENTRY OR A STOP* BUT WHICH IS NEVER 
TRANSFERED TO IN THE FLOW OF THE PROBLEM 



CLA LI5T»1 
ANA AOOMSK 
TSX EX6ETA»4 s 
TSX LAJUST»4 
SLW EXTN1 
TSX PRINT»4 

HTR PRNOTR»0»PRNOTR+18 

TXI NXTER»1»1 1 WORD ENTRY IN ERROR LIST 

PRNOTR BCD 2 

BCD A PART OF THE PROGRAM CANNOT BE REACHED. IT IS LOCATED AT 



03125 

03126 

03127 

03*30 

03131 

03132 

03133 

03134 

03135 

03136 

03137 

03140 

03141 

03142 

03143 

03144 

03145 

03146 

03147 

03150 

03151 

03152 

03153 

03154 

03155 

03156 

03157 

03160 

0316L 

03162 

03163 

03164 

03165 

03166 

03167 

03170 

03171 

03172 

03173 

03174 

03175 

03176 

03177 

03200 

03201 

03202 

03203 

03204 

03205 

03206 

03207 

03210 

03211 

03212 



256051252123 

302524336060 

316360316260 

434623216325 

246021636046 

516041646263 

602225434666 

606263216325 

442545636045 

644422255160 

00000 00000 

50000 1 77777 

07400 4 00613 

07400 4 00602 

60200 03165 

07400 4 00740 

03166 03147 

1 00001 1 01334 
606060606060 
606060606060 
216026512550 
642545237060 
626321632544 
254563602346 
456321314562 
606346466044 
214570602251 
214523302562 
602646516063 
302560264651 
446443216045 
644422255160 

00000 00000 



BCD 5R JUST BELOW STATEMENT NUMBER 



EXTN1 HTR 
FRETIF CLA LIST*1 

TSX EXBETA«4 

TSX LA JUST «4 

SLW FRALFA 

TSX PRINT#4 

HTR PRFREQ»0#PRFREQ+15 

TXI NXTER*1»1 
PRFREQ BCD 2 



INTERNAL FORMULA NUMBER 

IN ADDRESS OF LIST. SECTION 4 WILL STOP 
WHEN THERE ARE MORE BRANCHES THAN 
NECESSARY FOR A TIFGO ENTRY. 



1 WORD ENTRY IN ERROR LIST 



BCD A FREQUENCY STATEMENT CONTAINS TOO MANY BRANCHES FOR THE FOR 



BCD 2MULA NUMBER 



-0 50000 
07400 

60200 

56000 

50000 

77100 

76300 

60200 

76300 

56000 

76300 

60200 

07400 

03222 

00002 
606060606060 
606060606060 
214560314523 
464562316263 
254563602550 
643165214325 



77776 
00543 
03221 
03221 
03220 
00014 
00014 
03220 
00030 
00717 
00014 
03221 
00740 
03205 
01334 



FRALFA HTR 
NOTEQV CAL 
TSX 
SLW 
LDQ 
CAL 
ARS 
LGL 
SLW 
LGL 
LDQ 
LGL 
SLW 
TSX 
HTR 
TXI 
PREQ BCD 



LIST-1»1 

ZER0UT*4 

EQWD 

EQWD 

EQWD-1 

12 

12 

EQWD-1 

24 

BLANKS 

12 

EQWD 

PRINT»4 

PREQtO#PREQ+13 

NXTER»1»2 

2 



THIS IS STILL IN BCD FORM» BUT MAY BE 
FOLLOWED BY 1 BLANK AND ZEROS. THIS NAME 
HAS BEEN ASSIGNED INCONSISTANT VALUES IN 
EQUIVALENCE STATEMENTS 

MOVE WORD INTO REST OF COMMENT 



2 WORD ENTRIES IN ERROR LIST 



BCD AN INCONSISTENT EQUIVALENCE STATEMENT HAS BEEN MADE ABOUT 



o 



o 



o 



03213 


452325606263 




- -- 




03214 


216325442545 








03215 


636030216260 








03216 


222525456044 








03217 


212425602122 








03220 


466463606060 








03221 





00000 





00000 EQWO 


HTR 






03222 





07400 


4 


00740 BAOWC 


TSX 


PRINT»4 




03223 





01244 





01237 


HTR 


MACHlNtOi 


»MACHIN+5 


03224 





50000 


1 


77776 


CLA 


LIST~1#1 




03225 





07400 


4 


00730 


TSX 


0CTBCD#4 




03226 





60200 





01257 


SLW 


ERAS 




03227 





56000 





01257 


LDQ 


ERAS 




03230 


-0 


50000 





03314 


CAL 


BDWD 




03231 





77100 





00030 


ARS 


24 




03232 


-0 


76300 





00030 


LGL 


24 




03233 





60200 





03314 


SLW 


BDWD 




03234 


-0 


76300 





00014 


LGL 


12 




03235 





56000 





00717 


LDQ 


BLANKS 




032,36 


-0 


76300 





00030 


LGL 


24 




03237 





60200 





03315 


SLW 


BDWD+1 




03240 





07400 


4 


00740 


TSX 


PRINT#4 




03241 





03410 





03300 


HTR 


PRBDWC »0i 


(PRBDWC+72 


03242 





02000 





03275 


TRA 


ENDMAC 




03243 





07400 


4 


00740 NO I DEN 


TSX 


PRINTt4 




03244 





01244 





01237 


HTR 


MACHIN»0) 


►MACHIN+5 


03245 





50000 


1 


77776 


CLA 


LIST-1»1 




03246 





07400 


4 


00730 


TSX 


0CTBCD»4 




03247 





60200 





01257 


SLW 


ERAS 




03250 





56000 





01257 


LDQ 


ERAS 




03251 


-0 


50000 





03423 


CAL 


IDENWD 




03252 





77100 





00022 


ARS 


18 




03253 


-0 


76300 





00022 


LGL 


18 




03254 





60200 





03423 


SLW 


IDENWD 




03255 


-0 


76300 





00022 


LGL 


18 




03256 





56000 





03424 


LDQ 


IDENWD+1 




03257 


•0 


77300 





00022 


RQL 


18 




03260 


-0 


76300 





00022 


LGL 


18 




03261 





60200 





03424 


SLW 


IDENWD+1 




03262 





07400 


4 


00740 


TSX 


PRINTt4 




03263 





03431 





03410 


HTR 


PRNOI»0»PRNOI+17 


03264 





07400 


4 


00740 


TSX 


PRINTt4 




03265 





03410 





03350 


HTR 


MACHER»Oi 


»MACHER+32 


03266 





02000 





03275 


TRA 


ENDMAC 




03267 





07400 


4 


00740 WHATIF 


TSX 


PRINT«4 




03270 





01244 





01237 


HTR 


MACHIN.O 


►MACHIN+5 


03271 





07400 


4 


00740 


TSX 


PRINT*4 




03272 





03446 





03431 


HTR 


NOTIF#0»NOT1F+13 


03273 





07400 


4 


00740 


TSX 


PRINTt4 




03274 





03364 





03350 


HTR 


MACHER»0 


►MACHER+12 


03275 





50000 





00316 ENDMAC 


CLA 


HTR4 




03276 





60100 





00266 


STO 


DONE 




03277 





02000 





00230 


TRA 


RESTRT 




03300 


606060606060 PRBDWC 


BCD 


2 





SET RETURN SO PROBLEM CAN BE 
RE-RUN FOR MACHINE ERROR 



t ) 



03301 

03302 

03303 

03304 

03305 

03306 

03307 

03310 

03311 

03312 

03313 

03314 

03315 

03316 

03317 

03320 

03321 

03322 

03323 

03324 

03325 

03326 

03327 

03330 

03331 

03332 

03333 

03334 

03335 

03336 

03337 

03340 

03341 

03342 

03343 

03344 

03345 

03346 

03347 

03350 

03351 

03352 

03353 

03354 

03355 

03356 

03357 

03360 

03361 

03362 

03363 

03364 

03365 

03366 



606060606060 
255151465160 
314560512521 
243145276051 
252346512460 
265146446063 
♦214725600233 
606051252346 
512460312425 
456331263123 
216331464560 
316260606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
664651246023 
466445636024 
462562604546 
636021275125 
256066316330 
602346644563 
603145605125. 
234651243360 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
475146222122 
437060442123 
303145256025 
515146516066 
302545606321 
224325606621 
626023464447 
314325246022 
706001604751 
314425336060 
606060606060 
606060606060 
606060606060 



BCD ERROR IN READING RECORD FROM TAPE 2* RECORD IDENTIFICATION 



BDWD BCD IS 



BCD WORD COUNT DOES NOT AGREE WITH COUNT IN RECORD* 



BCD 8 



MACHER BCD 2 



BCD PROBABLY MACHINE ERROR WHEN TABLE WAS COMPILED BY 1 PRIME. 



BCD 



d 



u 



u 



o 



n 



03367 606060606060 

03370 606060606060 

03371 606060606060 

03372 606060606060 

03373 606060606060 

03374 606060606060 

03375 606060606060 

03376 263165256021 

03377 636325444763 

03400 626030216525 

03401 602225254560 

03402 442124256063 

03403 466051252124 

03404 606330316260 

03405 512523465124 

03406 602346515125 

03407 236343703360 

03410 606060606060 

03411 606060606060 

03412 512523465124 

03413 602651464460 

03414 632147256002 

03415 602321454546 

03416 636022256031 

03417 242545633126 

03420 312524336060 

03421 633031626051 

03422 252346512460 

03423 302162606060 

03424 606060603145 

03425 602124245125 

03426 626260462660 

03427 263151626360 

03430 664651243360 

03431 606060606060 

03432 606060606060 

03433 254563517060 

03434 314560633126 

03435 274673605125 

03436 234651246006 

03437 736026314325 

03440 600573606321 

03441 472560027360 

03442 232145454663 

03443 602225603124 

03444 254563312631 

03445 252433606060 

03446 +000301000000 

03447 00000 03267 

03450 +001125000000 

03451 00000 02502 

03452 +000650000000 

03453 00000 02453 

03454 +000641000000 



BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY. 



PRNOI BCD 2 



BCD 9REC0RD FROM TAPE 2 CANNOT BE IDENTIFIED. THIS RECORD 



IDENWD BCD 
BCD 



1HAS 
5 



IN ADDRESS OF FIRST WORD. 



NOT IF BCD 2 



BCD ENTRY IN TIFGO* RECORD 6» FILE 5» TAPE 2 » CANNOT BE IDENTIFI 



BCD 1ED* 

OCT 000301000000 

HTR WHATIF 

OCT 001125000000 

HTR CHBTSX 

OCT 000650000000 

HTR DOALNX 

OCT 000641000000 



/ 

r.l'' 



« L 



03455 00000 02402 

03456 4000727000000 

03457 00000 02426 

03460 -1-000623000000 

03461 00000 01436 

03462 4001062000000 

03463 00000 02210 

03464 4000534000000 

03465 00000 01434 

03466 4000521000000 

03467 00000 01432 

03470 4000511000000 

03471 00000 01430 

03472 4000475 000000 

03473 00000 01426 

03474 4000465000000 

03475 00000 01424 

03476 4000451000000 

03477 00000 01422 

03500 4000441000000 

03501 00000 01420 

03502 4000417000000 

03503 00000 01416 

03504 4000372000000 

03505 00000 01411 

03506 4000350000000 

03507 00000 01404 

03510 4000335000000 

03511 00000 01377 

03512 4000325000000 

03513 00000 01372 

03514 4000314000000 

03515 00000 01365 

03516 4000775000000 

03517 00000 03166 

03520 4000762000000 

03521 00000 03140 

03522 4000070000000 

03523 00000 03222 

03524 4000110000000 

03525 00000 03243 

03526 4000576000000 

03527 00000 03106 

03530 4000212000000 

03531 00000 01341 

03532 4001110000000 

03533 OOOOO 02656 

03534 OOOOO OOOOO 

—- OOOOO 





HTR 


OOBTNX 




OCT 


000727000000 




HTR 


CONBET 




OCT 


000623000000 




HTR 


DONOBT 




OCT 


001062000000 




HTR 


TSXH 




OCT 


000534000000 




HTR 


T1F6B 




OCT 


000521000000 




HTR 


B2TIF5 




OCT 


000511000000 




HTR 


B1TIF5 




OCT 


000475000000 




HTR 


B2T1F4 




OCT 


000465000000 




HTR 


B1TIF4 




OCT 


000451000000 




HTR 


B2TIF3 




OCT 


000441000000 




HTR 


B1TIF3 




OCT 


000417000000 




HTR 


BTIFG2 




OCT 


000372000000 




HTR 


BTIFG1 




OCT 


000350000000 




HTR 


TSXTFO 




OCT 


000335000000 




HTR 


M1N83 




OCT 


000325000000 




HTR 


MINB2 




OCT 


000314000000 




HTR 


MINB1 




OCT 


000775000000 




HTR 


NOTEOV 




OCT 


000762000000 




HTR 


FRETIF 




OCT 


000070000000 




HTR 


BAOWC 




OCT 


000110000000 




HTR 


NOIDEN 




OCT 


000576000000 




HTR 


NOTRA 




OCT 


000212000000 




HTR 


TEIFNO 


ER1PRM 


OCT 


001110000000 


X 


HTR 


CHATSX 


END 





IE«»TSXE FROM NON-ARITH DIAP 



u 



u 



TO 



OOOQ5 

01303 

01304 
01305 
01306 
01307 
01310 
01311 
01312 
01313 
01314 
01315 
01316 
01317 
01320 
01321 
01322 
01323 
01324 
01325 
01326 
01327 
01330 
01331 
01332 
01333 
01334 
01335 
01336 
01337 
01340 
013*1 
01342 
01343 
01344 
01345 
01346 
01347 
01350 
01351 
01352 
01353 
01354 
01355 
01356 
01357 
01360 
01361 
01362 
01363 



ORG 5 
01303 



3 00000 



07400 
01252 



-0 53400 



2 00002 

-0 63400 

-0 53400 

50000 

10000 

50000 

-0 10000 

07400 

01372 

-0 63400 

76600 

50000 

60100 

50000 

60100 

07400 

50000 

60100 

50000 

60100 

07400 

76600 

00004 
-3 00000 
76600 

07400 

01403 

02000 

60000 

76600 

07400 

01421 

50000 

60100 

50000 

60100 

07400 

00003 
606060606060 
606060606060 
633025602446 
606263216325 
442545636260 
314560633025 
602646434346 



00005 
01421 
01303 
00005 
07302 
00740 
01244 
07302 
01310 
01336 
01232 
77777 
01343 
01421 
01322 
00740 
01355 
01421 
00361 
77777 
00527 
77776 
00530 
00505 
77775 
00527 
77774 
00530 
00505 
00361 
01336 
01312 
00361 
00740 
01372 
00272 
01421 
00361 
00740 
01403 
77776 
00527 
77775 
00530 
00505 
01336 



FORCE 
ORG 
HTR 
ORG 
TXH 

ERNBR SYN 
TSX 
HTR 
LXD 
TIX 

D0NX1 SXD 
LXD 

NXTDO CLA 
TZE 
CLA 
TNZ 
TSX 
HTR 
SXD 
WPR 

D01 CLA 
STO 
CLA 
STO 
TSX 
CLA 
STO 
CLA 
STO 
TSX 
WPR 
TXI 

DOTST TXL 
WPR 
TSX 
HTR 
TRA 

ONEDO STZ 
WPR 
TSX 
HTR 
CLA 
STO 
CLA 
STO 
TSX 
TXI 

NONEST BCD 



NEW RECORD 

5 

X-1#0*L0CREC 

LOCREC 

5- 

3778 

PRINT»4 

SOURCE tO»SOURCE+6 

ERNBR* 1 

D0NXltl>2 

D0TST»1 

ZER0»1 

LIST>1 

ONEDO 

MORDOS 

D01 

PRINT»4 

NON5ST»0#NONEST+13 

MORDOS #4 

LISTtl 

ALFBET 

LIST-1»1 

SYM 

FX4PR»4 

LIST-2*1 

ALFBET 

LIST-3»1 

SYM 

FX4PR»4 

D0TST*1#4 
NXTDO»ltO 

PRINT»4 

ENDNST*0»ENDNST+9 

SPEND 

MORDOS 

PRINT»4 

DOPR*0»DOPR+14 

LIST-1»1 

ALFBET 

LIST-2*1 

SYM 

FX4PR»4 

D0TST*1#3 

2 



FORCE NEW RECORD 
CARD FOR DE 

7320 FT 27 
OCTAL 7302 



DO NOT PRINT COMMENT FOR SUCCEEDING 
ERRORS 



PRINT 1ST DO 
AND 2ND 



BCD THE DO STATEMENTS IN THE FOLLOWING LIST ARE NOT CORRECTLY NE 



BCD 1STED 
ENDNST BCD 2 



01364 663145276043 

01365 316263602151 

01366 256045466360 

01367 234651512523 

01370 634370604525 

01371 626325246060 

01372 606060606060 

01373 606060606060 

01374 234651512523 

01375 636063302560 

01376 244660452562 

01377 633145276022 

01400 252646512560 

01401 512521626225 

01402 442243703360 

01403 606060606060 

01404 606060606060 

01405 633025606263 

01406 216325442545 

01407 636045644422 
Q1410 255160254524 

01411 314527602160 

01412 244660316260 

01413 212246652560 

01414 316360314560 

01415 633025606246 

01416 645123256047 

01417 514627512144 

01420 336060606060 

01421 00000 00000 MORDOS HTR 

01422 00000 00000 X 

00000 END 



BCD 7C0RRECT THE DO NESTING BEFORE REASSEMBLY. 



DOPR BCD 2 



BCD THE STATEMENT NUMBER ENDING A DO IS ABOVE IT IN THE SOURCE P 



BCD 2R0GRAM. 



,J 



u 



u 



o 



n 



TO 





ORG 6 




FORCE 


NEW RECORD 








00006 


ORG 


6 


00006 





01303 


01436 


HTR 


X-1.0.L0CREC 








01303 


ORG 


LOCREC 


01303 


3 


00000 


00006 


TXH 


6 


01304 





07400 4 


00740 


TSX 


PRINT»4 


01305 





01252 


01244 


HTR 


SOURCE »0»S0URCI 


01306 





76200 


00304 


ROOR RDR 


4 


01307 





46000 


01350 


LDA 


A 


01310 





53400 1 


01351 


LXA 


L(15)tl 


01311 





70000 1 


01276 


COPYW CPY 


ERAS+15.1 


01312 





70000 1 


01277 


CPY 


ERAS+16»1 


01313 





70000 1 


01277 


CPY 


ERAS+16»1 


01314 





70000 1 


01277 


CPY 


ERAS+16.1 


01315 


2 


00001 1 


01311 


TIX 


C0PYW»1.1 


01316 





53400 1 


01351 


LXA 


LU5)tl 


01317 





50000 1 


01276 


NEXT CLA 


ERAS+15.1 


01320 


-0 


10000 


01331 


TNZ 


PROCES 


01321 


2 


00001 1 


01317 


TIX 


NEXTtlfl 


01322 





50000 


01351 


CLA 


LC15) 


01323 





76700 


00002 


AL5 


2 


01324 





40000 


01350 


ADO 


A 


01325 





62100 


01350 


STA 


A 


01326 





40200 


01352 


SUB 


BUFSIZ 


01327 


-0 


10000 


01306 


TNZ 


RDDR 


01330 





50000 


01232 


CLA 


ZERO 


01331 





77100 


00022 


PROCES ARS 


18 


01332 





07400 4 


00613 


TSX 


EXBETA.4 


01333 





60200 


01257 


SLW 


ERAS 


01334 


-0 


50000 


01373 


CAL 


PR1 


01335 





77100 


00030 


ARS 


24 


01336 





56000 


01257 


LDQ 


ERAS 


01337 


-0 


76300 


00030 


LGL 


24 


01340 





60200 


01373 


SLW 


PR1 


01341 


-0 


76300 


00014 


LGL 


12 


01342 





56000 


00717 


LDQ 


BLANKS 


01343 


-0 


76300 


00030 


LGL 


24 


01344 





60200 


01374 


SLW 


PR1+1 


01345 





07400 4 


00740 


TSX 


PRINT.4 


01346 





01437 


01353 


HTR 


PRfOtPR+52 


01347 





02000 


00272 


TRA 


SPEND 


01350 





00000 


00200 


A HTR8200 


01351 





00000 


00017 


L(15) HTR 


15 


01352 





00000 


07700 


BUFSIZ HTR 


4032 


01353 


606060606060 


PR BCD 


2 


01354 


606060606060 






01355 


633025606225 


BCD 


THE SET OF DO 


01356 


636046266024 






01357 


466026465144 






01360 


644321626066 






01361 


303123306022 






01362 


252731456260 






01363 


465160632551 






01364 


443145216325 







FORCE NEW RECORD 
CARD FOR D£ 

106 FT 53 



NOR BUFFER NOW ON DRUM 4. 



COPY FIRST WORD OF 4 WORD ENTRY. 
IGNORE NEXT THREE. 



IF NOT LOCATION SYMBOL OF CITt 
WORD WILL BE ZERO. 



IN THE DECREMENT THERE IS THE 
ALPHA OF SOME STATEMENT NUMBER. 



STARTING DRUM ADDRESS 

SIZE OF NOR BUFFER + INITIAL ADDRESS. 



8 I 



01365 


626031456063 


01366 


302560653123 


01367 


314531637060 


01370 


462660626321 


01371 


632544254563 


01372 


604564442225 


01373 


516060606060 


01374 


606060606060 


01375 


606060606060 


01376 


606060606060 


01377 


606060606060 


01400 


606060606060 


01401 


302162602731 


01402 


652545605131* 


01403 


622560634660 


01404 


634646604421 


01405 


457060314562 


01406 


635164236331 


01407 


464562336060 


01410 


512566513163 


01411 


256047514627 


01412 


512144602145 


01413 


246062314447 


01414 


433126706024 


01415 


466045256263 


01416 


314527606060 


01417 


606060606060 


01420 


606060606060 


01421 


606060606060 


01422 


606060606060 


01423 


60606060606Q 


01424 


606060606060 


01425 


465160512524 


01426 


642325606330 


01427 


256045644422 


01430 


255160462660 


01431 


626422622351 


01432 


314763602346 


01433 


442231452163 


01434 


314645623360 


01435 


606060606060 


01436 


606060606060 


01437 


00000 00000 




00000 



PR1 



BCD 4INITY OF STATEMENT NUMBE 



BCD 6R 



BCD HAS GIVEN RISE TO TOO MANY INSTRUCTIONS. REWRITE PROGRAM AN 



BCD D SIMPLIFY DO NESTING 



BCD OR REDUCE THE NUMBER OF SUBSCRIPT COMBINATIONS. 



END 



pD 



U 



u 



o 



TO 



ORG 7 



00007 01303 



01303 3 00000 

01304 07400 4 

01305 01252 

01306 76200 

01307 46000 

01310 70000 

01311 50000 

01312 77100 

01313 07400 4 

01314 60200 

01315 -0 50000 

01316 77100 

01317 56000 

01320 -0 76300 

01321 60200 

01322 -0 76300 

01323 56000 

01324 -0 77300 

01325 -0 76300 

01326 60200 

01327 07400 4 

01330 01405 

01331 02000 

01332 00000 

01333 606060606060 
Q1334 606060606060 

01335 632127632127 

01336 606321224325 

01337 606231712560 

01340 302162602225 

01341 254560256723 

01342 252524252433 

01343 606024466062 

01344 632163254425 

01345 456360456444 

01346 222551600102 

01347 030405546031 

01350 626046452560 

01351 462660216045 

01352 256263604626 

01353 602446606263 

01354 216325442545 

01355 636260606060 

01356 606060606060 

01357 606060606060 

01360 606060606060 

01361 663031233060 

01362 234645632131 

01363 456273604651 

01364 603021626027 



00007 

01404 
01303 
00007 
00740 
01244 
00304 
01332 
01257 
01257 
00022 
00613 
01257 
01346 
00014 
01257 
00014 
01346 
00030 
01347 
00030 
00014 
01347 
00740 
01333 
00272 
01076 



A 
PR 



FORCE NEW RECORD 
ORG 7 

HTR X-1»0#L0CREC 
ORG LOCREC 
TXH 7 

TSX PRINT#4 
HTR SOURCE »0«SOURCE+6 
RDR 4 
LDA A 
CPY ERAS 
CLA ERAS 
ARS 18 
TSX EXBETA#4 
SLW ERAS 
CAL PR1 
ARS 12 
LDQ ERAS 
LGL 12 
SLW PR1 
LGL 24 
LDQ PR 2 
ROL 24 
LGL 12 
SLW PR 2 
TSX PRINTt4 
HTR PR*OtPR+42 
TRA SPEND 
HTR81076 
BCD 2 



PR1 
PR 2 



FORCE NEW RECORD 
CARD FOR DE 

4040 FT 51 



TAGTAG TABLE ON DRUM 4* 

COPY FIRST WORD OF 4 WORD ENTRY. 



BCD 9TAGTAG TABLE SIZE HAS BEEN EXCEEDED. DO STATEMENT NUM 



BCD 1BER 12 
BCD 1345* I 
BCD 9S ONE OF A NEST OF DO STATEMENTS 



BCD WHICH CONTAINS* OR HAS GIVEN RISE T0» TOO MANY SUBSCRIPT COM 



U 



38 L 



02365 


316525456051 


01366 


316225606346 


01367 


736063464660 


01370 


442145706062 


01371 


642262235131 


01372 


476360234644 


01373 


223145216331 


01374 


464562336060 


01375 


512566513163 


01376 


256062466451 


01377 


232560475146 


01400 


275121443360 


01401 


606060606060 


01402 


606060606060 


01403 


606060606060 


01404 


606060606060 


01405 


00000 00000 




00000 



BCD B I NAT IONS. REWRITE SOURCE PROGRAM. 



END 



u 



u 



ORG 8 
000 10 01303 



fo 



01303 
01304 
01305 
01306 
01307 
01310 
01311 
01312 
01313 
01314 
01315 
01316 
01317 
01320 
01321 
01322 
01323 
01324 
01325 
01326 
01327 
01330 
01331 
01332 
01333 



00010 
01332 
01303 
00010 
00740 
01244 
00740 
01311 
00272 



3 00000 

O 07400 

01252 

07400 

01333 

02000 

606060606060 PR 

606060606060 

475146275121 

446030216260 

444651256063 

302145600500 

602446606263 

216325442545 

636260314560 

216045256263 

336060512566 

513163256047 * 

514627512144 

606631633060 

623144474325 

516024466062 

635164236364 

512533606060 

00000 00000 X* 

00000 END 



FORCE NEW RECORD 
ORG 8 

HTR X-1»0»L0CREC 
ORG LOCREC 
TXH 8 

TSX PRINTS 
HTR SOURCE »0tS0URCE+6 
TSX PRINT»4 
HTR PR*0»PR+18 
TRA SPEND 
BCD 2 



FORCE NEW RECORD 
CARD FOR DE 

4160 FT 34 



BCD PROGRAM HAS MORE THAN 50 DO STATEMENTS IN A NEST. REWRITE P 



BCD 6R0GRAM WITH SIMPLER DO STRUCTURE. 



^ 



X^^ 1 



TO 



ORG 9 

OOOll 

00011 01303 01612 

01303 

01303 3 00000 00011 

01304 07400 4 00740 

01305 01252 01244 

01306 -0 53400 1 77777 

01307 -3 00001 1 01515 

01310 -3 00002 1 01370 

01311 -3 00003 1 01520 

01312 -3 00004 1 01522 

01313 07400 4 00740 

01314 01370 01316 

01315 02000 00272 

01316 606060606060 

01317 606060606060 

01320 636267234644 

01321 606321224325 

01322 602567232525 

01323 246260226426 

01324 262551606231 

01325 712533606063 

01326 302551256021 

01327 512560634646 

01330 604421457060 

01331 512543216331 

01332 652560234645 

01333 626321456360 

01334 242526314531 

01335 633146456233 

01336 606060606060 

01337 606060606060 

01340 606060606060 

01341 606060606060 

01342 606060606060 

01343 606060606060 

01344 633025606321 

01345 224325603162 

01346 602364446443 

01347 216331652560 

01350 466525516063 

01351 302560254563 
©1352 315125604751 

01353 462243254433 

01354 606051256651 

01355 316325606246 

01356 645123256047 

01357 514627512144 

01360 336060606060 

01361 606060606060 

01362 606060606060 

01363 606060606060 



PR 



FORCE NEW RECORD 
ORG 9 

HTR X-ltO»LOCREC 
ORG LOCREC 
TXH 9 
9 
TSX PRINT»4 
HTR SOURCE »0#S0URCE+6 
LXD877777»1 
TXL DRMTAG»1»1 
TXL CHGTAG»1«2 
TXL NAMKEY*1»3 
TXL TRASTO.1.4 
TSX PRINT»4 
HTR PR»0»PR+42 
TRA SPEND 
BCD 2 



FORCE NEW RECORD 
CARD FOR DE ? 



5037 FT 
7632 FT 



34 
36 



BCD TSXCOM TABLE EXCEEDS BUFFER SIZE. THERE ARE TOO MANY RELATI 



BCD VE CONSTANT DEFINITIONS. 



BCD THE TABLE IS CUMULATIVE OVER THE ENTIRE PROBLEM. REWRITE SO 



BCD URCE PROGRAM. 



o 



o 



01364 


606060606060 


01365 


606060606060 


01366 


606060606060 


01367 


606060606060 


01370 


07400 4 00740 


01371 


01515 01373 


01372 


02000 00272 


01373 


606060606060 


01374 


606060606060 


01375 


233027632127 


01376 


606321224325 


01377 


602567232525 


01400 


246260226426 


01401 


262551606231 


01402 


712533606021 


01403 


456025456351 


01404 


706031626044 


01405 


212425603145 


01406 


606330316260 


01407 


632122432560 


01410 


663025456063 


01411 


302551256021 


01412 


512560216360 


01413 


432521626360 


01414 


636646606060 


01415 


606060606060 


01416 


606060606060 


01417 


606060606060 


01420 


6G6060606060 


01421 


626422622351 


01422 


314763602346 


01423 


442231452163 


01424 


314645626066 


01425 


316330606330 


01426 


256062214425 


01427 


606270442246 


01430 


436273602346 


01431 


252626312331 


01432 


254563627360 


01433 


214524604325 


01434 


212431452760 


01435 


243144254562 


01436 


314645626060 


01437 


606060606060 


01440 


606060606060 


01441 


606060606060 


01442 


606060606060 


01443 


606060606060 


01444 


606060606060 


01445 


663163303145 


01446 


606330256062 


01447 


214425604525 


01450 


626360663031 


01451 


233060302162 



CHGTAG TSX PRINT*4 

HTR Pfrl*0»PRl+82 

TRA SPEND 
PR1 BCD 2 

BCD CHGTAG TABLE EXCEEDS BUFFER SIZE* AN ENTRY IS MADE IN THIS 



BCD TABLE WHEN THERE ARE AT LEAST TWO 



BCD SUBSCRIPT COMBINATIONS WITH THE SAME SYMBOLS* COEFFICIENTS* 



BCD AND LEADING DIMENSIONS 



BCD WITHIN THE SAME NEST WHICH HAS AT LEAST ONE* BUT NOT ALL* CO 



o 



u 



o 



n 



01452 
01453 
01454 
01455 
01456 
01457 
01460 
01461 
01462 
01463 
01464 
01465 
01466 
01467 
01470 
01471 
01472 
01473 
01474 
01475 
01476 
01477 
01500 
01501 
01502 
01503 
01504 
01505 
01506 
01507 
01510 
01511 
01512 
01513 
01514 
01515 
01516 
01517 
01520 
01521 
01522 
01523 
01524 
01525 
01526 
01527 
01530 
01531 
01532 
01533 
01534 
01535 
01536 
01537 



BCD NTROLLING DOS IN COMMON* 



602163604325 

216263604645 

257360226463 

604546636021 

434373602346 

456351464343 

314527602446 

626031456023 

464444464533 

606060606060 

606060606060 

606060606060 

606060606060 

606060606060 

606060606060 

633025606321 

224325603162 

602364446443 

216331652560 

466525516021 

434360452562 

636260314560 

633025604751 

462243254433 

606051256651 

316325606246 

645123256047 

514627512144 

336060606060 

606060606060 

606060606060 

606Q60606060 

606060606060 

606060606060 

606060606060 

50000 01611 DRMTAG CLA DRT6 
01527 STO PR3 
01522 TRA TRASTO 
01612 NAMKEY CLA NMiCY 
01527 STO PR3 
00740 TRASTO TSX PRINT* 4 
01525 HTR PR2»0fPR2+52 
00272 TRA SPEND 
PR2 BCD 2 



BCD THE TABLE IS CUMULATIVE OVER ALL NESTS IN THE PROBLEM. 



REWR 



BCD ITE SOURCE PROGRAM. 



60100 

02000 

50000 

60100 

07400 

01611 

02000 
606060606060 
606060606060 
635121626346 
606321224325 
602567232525 
246260226426 
262551606231 
712533606063 
302560626422 
622351314763 
602346442231 



PR 3 



BCD 



TRASTO TABLE EXCEEDS BUFFER SIZE. THE SUBSCRIPT COMBINATION 



rlA 



01*40 452163314645 

01541 626021452460 

01542 264346666062 

01543 635164236364 

01544 512560316260 

01545 634646602346 

01546 444743256760 

01547 606060606060 

01550 606060606060 

01551 606060606060 

01552 606060606060 

01553 663163303145 

01554 602446604525 

01555 626362336060 

01556 633031626063 

01557 212243256031 

01560 626023644464 

01561 432163316525 

01562 604665255160 

01563 214343604525 

01564 626362336060 

01565 512566513163 

01566 256062466451 

01567 232560475146 

01570 275121446021 

01571 452460606060 

01572 606060606060 

01573 606060606060 

01574 606060606060 

01575 606060606060 

01576 606060606060 

01577 623144474331 

01600 267060626422 

01601 622351314763 

01602 602346442231 

01603 452163314645 

01604 626046516024 

01605 466045256263 

01606 606263516423 

01607 636451253360 

01610 606060606060 

01611 245144632127 DRTG 

01612 452144422570 NMKY 

01613 00000 00000 X 

00000 



BCD S AND FLOW STRUCTURE IS TOO COMPLEX 



BCD WITHIN DO NESTS. THIS TABLE IS CUMULATIVE OVER ALL NESTS. 



BCD REWRITE SOURCE PROGRAM AND 



a/~r\ ctuoi icv eiiQcrnrDT mita tm a t r nu e no r\r\ mcct eTDiirTiinc 



o i rir v. x i 



»w*»%.r\*r i vv/riB i iin i tuiid wr\ i/v/ 



IlLdl <)II\W),IUIM.I 



BCD 1DRMTAG 
BCD 1NAMKEY 

END 



/*' 



u 



u 



o 



o 



i ORG 10 

I 00012 

00012 01303 01343 

01303 

TD 01303 3 00000 00012 

01304 07400 4 00740 

01305 01252 01244 

01306 07400 4 00740 

01307 01344 01311 

01310 02000 00272 

01311 606060606060 

01312 606060606060 

01313 635121456226 

01314 255160212424 

01315 512562626043 

01316 256525436031 

01317 626027512521 

01320 632551606330 

01321 214560020033 

01322 606051254751 

01323 462751214460 

01324 634660254331 

01325 443145216325 

01326 606351214562 

01327 262551626063 

01330 466024466260 

01331 606060606060 

01332 606060606060 

01333 606060606060 

01334 606060606060 

01335 606060606060 

01336 606060606060 

01337 663163306043 ♦ 

01340 256525436260 

01341 275125216325 

01342 516063302145 

01343 600200336060 

01344 00000 00000 
A 00000 



PR 



FORCE NEW RECORD 
ORG 10 

HTR X-1»0»L0CREC 
ORG LOCREC 
TXH 10 
10 
TSX PRINTt4 
HTR SOURCE #0»S0URCE+6 
TSX PRINT#4 
HTR PR»0#PR+27 
TRA SPEND 
BCD 2 



FORCE NEW RECORD 
CARD FOR DE 



6044 
6534 



FT 
FT 



27 
27 



BCD TRANSFER ADDRESS LEVEL IS GREATER THAN 20. REPROGRAM TO ELI 



BCD MINATE TRANSFERS TO DOS 



BCD 5WITH LEVELS GREATER THAN 20. 



END 



TO 





ORG 11 






FORCE 


NEW RECORD 










00013 


ORG 


11 


00013 





01303 





01345 
01303 


KTR 
ORG 


X-1*0»L0CREC 
LOCREC 


01303 


3 


00000 





00013 


TXH 


11 


01304 





07400 


4 


00740 


TSX 


PRINT»4 


01305 





01252 





01244 


HTR 


SOURCE »0 #S0URCE+6 


01306 





50000 





06300 


CLA 


3264 


01307 





77100 





00022 


ARS 


18 


01310 





07400 


4 


00613 


TSX 


EXBETA»4 


01311 





60200 





01257 


SLW 


ERAS 


01312 





56000 





01257 


LDQ 


ERAS 


01313 


-0 


50000 





01332 


CAL 


PR1 


01314 





77100 





00006 


ARS 


6 


01315 


-0 


76300 





00006 


LGL 


6 


01316 





60200 





01332 


SLW 


PR1 


01317 


-0 


76300 





00036 


LGL 


30 


01320 





56000 





00717 


LDQ 


BLANKS 


01321 


-0 


76300 





00006 


LGL 


6 


01322 





60200 





01333 


SLW 


PR2 


01323 





07400 


4 


00740 


TSX 


PRINTt4 


01324 





01346 





01326 


HTR 


PR»0#PR+16 


01325 





02000 





00272 


TRA 


SPEND 


01326 


606060606060 PR 


BCD 


2 


01327 


606060606060 






01330 


626321632544 


BCD 


2STATEMENT NU 


01331 


254563604564 






01332 


442225516060 PR1 


BCD 


1MBER 


01333 


606060606060 PR2 


BCD 


1 


01334 


635121456226 


BCD 


TRANSFERS INTO T 


01335 


255162603145 






01336 


634660633025 






01337 


605121452725 






01340 


604626602160 






01341 


244660265146 






01342 


446046646362 






01343 


312425603163 






01344 


626051214527 






01345 


253360606060 






01346 





00000 





00000 X 
00000 


END 





FORCE NEW RECORD 
CARD FOR DE 

6065 FT 27 



6300 OCTAL 



M 



U 



U 



ORG 12 
90014 01303 



TO 



01303 
01304 
01305 
01306 
01307 
01310 
01311 
01312 
01313 
01314 
01315 
01316 
01317 
01320 
01321 
01322 
01323 
01324 
01325 
01326 
0132? 
01330 
01331 
01332 
01333 
01334 
01335 
01336 
01337 
01340 
01341 
01342 
01343 
01344 
01345 
01346 
01347 
01350 
01351 
01352 
01353 
01354 
01355 
01356 
01357 
01360 
01361 
01362 
01363 
01364 



00014 
01373 
01303 

00014 
00740 
01244 
05244 
00022 
00613 
01334 
01334 
00717 
00036 
01334 
01335 



3 00000 
07400 4 
01252 \> 
50000 
77100 
07400 4 
60200 
56000 

-0 50000 

-0 76300 
60200 
56000 

•0 76300 00036 
60200 01335 
07400 4 00740 
01374 01324 
02000 00272 
606060606060 
606060606060 
634646604421 
457060244662 
602545246021 
636062632163 
254425456360 
456444222551 
600102030405 
336060633060 
316260234645 
243163314645 
736031456023 
464541644523 
633146456066 
316330606264 
226223513147 
636023464526 
312764512163 
314645627360 
606060606060 
606060606060 
302162605125 
626443632524 
603145606346 
466044214570 
603145626351 
642363314645 
623360605125 
665131632560 
475146275121 
446021452460 
622547215121 



PR 



FORCE NEW RECORD 
CARD FOR DE 

6234 FT 51 



OCTAL 5244 



FORCE NEW RECORD 
ORG 12. 

HTR X-l.O.LOCREC 
ORG LOCREC 
TXH 12 
TSX PRINT. 4 
HTR SOURCE .O.SOURCE+6 
CLA 2724 VCTR 

AR5 18 

TSX EXBETA.4 
SLW BETA 
LDQ BETA 
CAL BLANKS 
LGL 30 
SLW BETA 
LDQ BETA+1 
LGL 30 
SLW BETA+1 
TSX PRINT.4 
HTR PR.O.PR+40 
TRA SPEND 
BCD 2 

BCD 6T00 MANY DOS END AT STATEMENT NUMBER 



BE A BCD • TH IS CONDITION. IN CONJUNCTION WITH SUBSCRIPT CONFIGURAT 



BCD 3 IONS* 

BCD HAS RESULTED IN TOO MANY INSTRUCTIONS. REWRITE PROGRAM AND 



BCD 8SEPARATE DO ENDS BY USING CONTINUE STATEMENTS. 



01365 


632560244660 


01366 


254524626022 


01367 


706064623145 


01370 


276023464563 


01371 


314564256062 


01372 


632163254425 


01373 


456362336060 


01374 


00000 00000 




00000 



END 



I'- 



ll 



s- /- <-v T" 



u 



u 



^ 



1 




ORG 13 


FORCE 


NEW RECORD 


1 




00015 


ORG 


13 




00015 


01303 01334 


HTR 


X-1»0*L0CREC 






01303 


0R6 


LOCREC 


TO 


0X303 


3 00000 00015 


TXH 


13 




01304 


07400 4 00740 


TSX 


PRINT»4 




01305 


01252 01244 


HTR 


SOURCE »0»S0URCE+6 




01306 


07400 4 00740 


TSX 


PRINT»4 




01307 


01335 01311 


HTR 


PR»0»PR+20 




01310 


02000 00272 


TRA 


SPEND 




01311 


606060606060 PR 


BCD 


2 




01312 


606060606060 








01313 


633025606521 


BCD 


THE VARIABLE PAR, 




01314 


513121224325 








01315 


604721512144 








01316 


256325516046 








01317 


266021602446 








01320 


603162605125 








01321 


242526314525 








01322 


246022706063 








01323 


302560314524 








01324 


256760627044 








01325 


224643604626 


BCD 


8B0L OF A DO STATI 




01326 


602160244660 








01327 


626321632544 








01330 


254563606631 








01331 


633031456063 








01332 


302560244633 








01333 


606060606060 








01334 


606060606060 








01335 


00000 00000 X 






A 




00000 


END 





FORCE NEW RECORD 
CARD FOR DE 

6432 FT 27 



.«* 



TD 





ORG 14 




0OO16 


00016 


01303 01355 




. 01303 


01303 


3 00000 00016 


01304 


07400 4 00740 


01305 


01252 01244 


01306 


07400 4 00740 


01307 


01356 01311 


01310 


02000 00272 


01311 


606060606060 


01312 


606060606060 


01313 


214560314563 


01314 


255144252431 


01315 


216325602346 


01316 


512560632122 


01317 


432560316260 


01320 


266443433360 


01321 


605125665131 


01322 


632560624664 


01323 


512325604751 


01324 


462751214460 


01325 


214524604446 


01326 


243126706063 


01327 


302560456444 


01330 


222551604626 


01331 


604764512560 


01332 


512543216331 


01333 


652560234645 


01334 


626321456360 


01335 


606060606060 


01336 


606060606060 


01337 


626422622351 


01340 


314763602346 


01341 


442231452163 


01342 


314645627360 


01343 


312533736062 


01344 


642262235131 


01345 


476362736045 


01346 


466062704422 


01347 


464360462660 


01350 


663031233060 


01351 


316260644524 


01352 


255160234645 


01353 


635146436046 


01354 


266021602446 


01355 


336060606060 


01356 


00000 00000 




00000 



PR 



>RCE NEW RECORD 




ORG 14 


FORCE NEW RECORD 


HTR X-l»0*LOCREC 


CARD FOR DE 


ORG LOCREC 




TXH 14 


7303 FT 41 


14 


7045 FT 43 


TSX PRINTt4 




HTR SOURCE *0*SOURCE*6 




TSX PRINTt4 




HTR PR»0»PR+37 




TRA SPEND 




BCD 2 





BCD AN INTERMEDIATE CORE TABLE IS FULL, REWRITE SOURCE PROGRAM 



BCD AND MODIFY THE NUMBER OF PURE RELATIVE CONSTANT 



BCD SUBSCRIPT COMBINATIONS* IE«» SUBSCRIPTS* NO SYMBOL OF WHICH 



BCD 51 S UNDER CONTROL OF A DO. 



END 



?5 



u 



u 



n 



1 
1 




ORG 15 

00017 




00017 


01303 01432 
01303 


TO 


01303 


3 00000 00017 




01304 


07400 4 00740 




01305 


01252 01244 




01306 


07400 4 00740 




01307 


01433 01311 




01310 


02000 00272 




01311 


606060606060 




01312 


606060606060 




01313 


233027632127 




01314 


606321224325 




01315 


602567232525 




01316 


246260226426 




01317 


262551606231 




01320 


712533606021 




01321 


456025456351 




01322 


706031626044 




01323 


212425603145 




01324 


606330316260 




01325 


632122432560 




01326 


663025456063 




01327 


302551256021 




01330 


512560216360 




01331 


432521626360 




01332 


636646606060 




01333 


606060606060 




01334 


606060606060 




01335 


606060606060 




01336 


606060606060 




01337 


626422622351 




01340 


314763602346 




01341 


442231452163 




01342 


314645626066 




01343 


316330606330 




01344 


256062214425 




01345 


606270442246 




01346 


436273602346 




01347 


252626312331 




01350 


254563627360 




01351 


214524604325 




01352 


212431452760 




01353 


243144254562 




01354 


314645626060 




01355 


606060606060 




01356 


606060606060 




01357 


606060606060 




01360 


606060606060 




01361 


606060606060 




01362 


606060606060 




01363 


663163303145 




01364 


606330256062 



PR 



FORCE NEW RECORD 
CARD FOR DE 

270 FT 56 



FORCE NEW RECORD 
ORG 15 

HTR X-1*0»L0CREC 
ORG LOCREC 
TXH 15 
TSX PRINT»4 
HTR SOURCE»0»SOURCE+6 
TSX PRINTt4 
HTR PR»0*PR+82 
TRA SPEND 
BCD 2 

BCD CHGTA6 TABLE EXCEEDS BUFFER SIZE. AN ENTRY IS MADE IN THIS 



,t~H 



BCD TABLE WHEN THERE ARE AT LEAST TWO 



BCD SUBSCRIPT COMBINATIONS WITH THE SAME SYMBOLS* COEFFICIENTS* 



BCD AND LEADING DIMENSIONS 



BCD WITHIN THE SAME NEST WHICH HAS AT LEAST ONE* BUT NOT ALL* CO 



,:'/ 



01365 214425604525 

01366 626360663031 

01367 233060302162 

01370 602163604325 

01371 216263604645 

01372 257360226463 

01373 604546636021 

01374 434373602346 

01375 456351464343 

01376 314527602446 

01377 626031456023 

01400 464444464533 

01401 606060606060 

01402 606060606060 

01403 606060606060 

01404 606060606060 

01405 606060606060 

01406 606060606060 

01407 633025606321 

01410 224325603162 

01411 602364446443 

01412 216331652560 

01413 466525516021 

01414 434360452562 

01415 636260314560 

01416 633025604751 

01417 462243254433 

01420 606051256651 

01421 316325606246 

01422 645123256047 

01423 514627512144 

01424 336060606060 

01425 606060606060 

01426 606060606060 

01427 606060606060 

01430 606060606060 

01431 606060606060 

01432 606060606060 

01433 00000 00000 

00000 



BCD NTROLLING DOS IN COMMON* 



BCD THE TABLE IS CUMULATIVE OVER ALL NESTS IN THE PROBLEM* REWR 



BCD ITE SOURCE PROGRAM. 



END 






u 



u 



TO 



00020 

01303 

01304 

01305 

01306 

01307 

01310 

01311 

01312 

01313 

01314 

01315. 

01316 

01317 

01320 

01321 

01322 

01323 

01324 

01325 

01326 

01327 

01330 

01331 

01332 

01333 

01334 



ORG 16 

00020 
01303 01333 

01303 
3 00000 00020 

07400 4 00740 
01252 01244 
07400 4 00740 
01334 01311 
02000 00272 



606060606060 PR 

606060606060 

216026465163 

512145602664 

452363314645 

603021626022 

252545602425 

263145252460 

216360216047 

463145-636031 

456063302560 

624664512325 

604751462751 

214460466330 

255160633021 

456021636031 

636260222527 

314545314527 

336060606060 

00000 00000 X 

00000 END 



FORCE NEW RECORD 
ORG 16 

HTR X-1»0»L0CREC 
ORG LOCREC 
TXH 16 
16 
TSX PRINT*4 
HTR SOURCE »0»SOURCE+6 
TSX PRINT»4 
HTR PR*0fPR+19 
TRA SPEND 
BCD 2 



FORCE NEW RECORD 
CARD FOR DE 



750 
747 



FT 
FT 



56 
56 



BCD A FORTRAN FUNCTION HAS BEEN DEFINED AT A POINT IN THE SOURCE 



BCD 7 PROGRAM OTHER THAN AT ITS BEGINNING* 



3t 



1 




ORG 17 


FORCE 


NEW RECORD 


1 




00021 


ORG 


17 




00021 


01303 01325 


HTR 


X-l»0tL0CREC 






01303 


ORG 


LOCREC 


TD 


01303 


3 00000 00021 


TXH 


17 




01304 


07400 4 00740 


TSX 


PRINT#4 




01305 


01252 01244 


HTR 


SOURCE #0»S0URCE+6 




01306 


07400 4 00740 


TSX 


PRINT»4 




01307 


01326 01311 


HTR 


PR»0*PR+13 




01310 


02000 00272 


TRA 


SPEND 




01311 


606060606060 PR 


BCD 


2 




01312 


606060606060 








01313 


216044644363 


BCD 


A MULTIVARIATE 01 




01314 


316521513121 








01315 


632560464725 








01316 


456062642251 








01317 


466463314525 








01320 


603021626046 








01321 


454370604645 








01322 


256021512764 








01323 


442545636062 








01324 


472523312631 








01325 


252433606060 


BCD 


1ED„ 




01326 


00000 00000 X 






A 




00000 


END 





FORCE NEW RECORD 
CARD FOR DE 

2155 FT 56 



i-1 



u 



u 



1 




ORG 16 


FORCE 


NEW RECORD 


1 




00022 


ORG 


18 FORCE NEW RECORD 




00022 


01303 01327 


HTR 


X-1»0»LOCREC CARD FOR DE 






01303 


ORG 


LOCREC 


TO 


01303 


3 00000 00022 


TXH 


18 2163 FT 56 




01304 


07400 4 00740 


TSX 


PRINT*4 




01305 


01252 01244 


HTR 


SOURCE »0 »$0URCE+6 




01306 


07400 4 00740 


TSX 


PRINT»4 




01307 


01330 01311 


HTR 


PR»0»PR+15 




01310 


02000 00272 


TRA 


SPEND 




01311 


606060606060 PR 


BCD 


2 




01312 


606060606060 








01313 


444651256021 


BCD 


MORE ARGUMENTS HAVE BEEN SUPPLIED 




01314 


512764442545 








01315 


636260302165 








01316 


256022252545 








01317 


606264474743 




m 


\ 


01320 
01321 
01322 
01323 
01324 


312524606330 
214560215125 
605125506431 
512524602270 
602145604647 








01325 


254560626422 


BCD 


3EN SUBROUTINE. 




01326 


514664633145 








01327 


253360606060 






A 


01330 


00000 00000 X 
00000 


END 





l,1(> 



TD 



ORG 19 
00023 01303 



00023 

01351 
01303 
00023 
00740 
01244 
00740 
01311 
00272 



01303 3 00000 

01304 07400 4 

01305 01252 

01306 07400 4 

01307 01352 

01310 02000 

01311 606060606060 PR 

01312 606060606060 

01313 264346666046 

01314 266047514627 

01315 512144603162 

01316 606346466023 

01317 464447432567 

01320 336060452567 

01321 636025456351 

01322 706023214545 

01323 466360222560 

01324 442124256031 

01325 456043316263 

01326 604626602221 

01327 623123602243 

01330 462342623360 

01331 606060606060 

01332 606060606060 

01333 606060606060 

01334 606060606060 

01335 606060606060 

01336 606060606060 

01337 512566513163 

01340 256047514627 

01341 512144606631 

01342 633060262566 

01343 255160635121 

01344 456226255160 

01345 212424512562 

01346 622562736046 

01347 516024466031 

01350 456063664660 

01351 472151636233 

01352 00000 00000 X 

00000 



FORCE NEW RECORD 
ORG 19 

HTR X-ltO»LOCREC 
ORG LOCREC 
TXH 19 
TSX PRINT»4 
HTR SOURCE »0»SOURCE*6 
TSX PRINT»4 
HTR PR»0*PR+33 
TRA SPEND 
BCD 2 



FORCE NEW RECORD 
CARD FOR DE 

434 FT 62 



BCD FLOW OF PROGRAM IS TOO COMPLEX. NEXT ENTRY CANNOT BE MADE I 



BCD N LIST OF BASIC BLOCKS* 



BCD REWRITE PROGRAM WITH FEWER TRANSFER ADDRESSES* OR DO IN TWO 



BCD 1PARTS. 
END 



u 



u 



TO 





ORG 20 




00024 


00024 


01303 01330 




01303 


01303 


3 00000 00024 


01304 


07400 4 00740 


01305 


01252 01244 


01306 


07400 4 00740 


01307 


01331 01311 


01310 


02000 00272 


01311 


606060606060 


01312 


606060606060 


01313 


216047215163 


01314 


604626606330 


01315 


256062466451 


01316 


232560475146 


01317 


275121446030 


01320 


216260454660 


01321 


474662623122 


01322 


432560472163 


01323 


306046266026 


01324 


434666606346 


01325 


603163336060 


01326 


233025234260 


01327 


475146275121 


01330 


443360606060 


01331 


00000 00000 




00000 



PR 



FORCE NEW RECORD 




ORG 20 


FORCE NEW RECORD 


HTR X-l»0»LOCREC 


CARD FOR* DE 


ORG LOCREC 




TXH 20 


454 FT 64 


20 


707 FT 64 


TSX PRINT#4 




HTR SOURCE »0»S0URCE+6 




TSX PRINT#4 




HTR PR»0tPR+16 




TRA SPEND 




BCD 2 





BCD A PART OF THE SOURCE PROGRAM HAS NO POSSIBLE PATH OF FLOW TO 



BCD 4 IT. CHECK PROGRAM. 



END 



1 




ORG 21 


FORCE 


NEW RECORD 


1 




00025 


ORG 


21 FORCE NEW RECORD 




00025 


01303 01331 


HTR 


X-l»OtLOCREC CARD FOR DE 






01303 


ORG 


LOCREC 


TD 


01303 


3 00000 00025 


TXH 


21 643 FT 64 




01304 


07400 4 00740 


TSX 


PRlNTt4 




01305 


01252 01244 


HTR 


SOURCE ♦0«S0URCE+6 




01306 


07400 4 00740 


TSX 


PRINT»4 




01307 


01332 01311 


HTR 


PR»0»PR+17 




01310 


02000 00272 


TRA 


SPEND 




01311 


606060606060 PR 


BCD 


2 




01312 


606060606060 








01313 


444651256063 


BCD 


MORE THAN 25 DISTINCT SYMBOLS USE 




01314 


302145600205 








01315 


602431626331 








01316 


452363606270 








01317 


442246436260 








01320 


646225246031 








01321 


456021626231 








01322 


274525246027 








01323 


466063466062 








01324 


632163254425 








01325 


456362336060 


BCD 


5NTS. SIMPLIFY SOURCE PROGRAM, 




01326 


623144474331 








01327 


267060624664 








01330 


512325604751 








01331 


462751214433 






A 


01332 


00000 00000 X 
00000 


END 





,/4/ 



JU O T 



u 



u 



1 


ORG 22 


FORCE 


NEW RECORD 


1 


00026 


ORG 


22 FORCE NEW RECORD 


00026 


01303 01334 


HTR 


X-1»0«L0CREC CARD FOR DE 




01303 


ORG 


LOCREC 


TD 01303 


3 00000 00026 


TXH 


22 756 FT 64 


01304 


07400 4 00740 


TSX 


PRINTt4 


01305 


01252 01244 


HTR 


SOURCE »0»SQURCE+6 


01306 


07400 4 00740 


TSX 


PRINTt4 


01307 


01335 01311 


HTR 


PR»0?PR+20 


01310 


02000 00272 


TRA 


SPEND 


01311 


606060606060 PR 


BCD 


2 


01312 


606060606060 






01313 


263167244662 


BCD 


FIXDOS TABLE IS FULL. THERE ARE ' 


01314 


606321224325 






01315 


603162602664 






01316 


434333606063 






01317 


302551256021 






01320 


512560634646 






01321 


604421457060 






01322 


635121456226 






01323 


255162606346 






01324 


602446606263 






01325 


216325442545 


BCD 


8ATEMENTS. REWRITE SOURCE PROGRAMi 


01326 


636233506051 






01327 


256651316325 






01330 


606246645123 






01331 


256047514627 






01332 


512144336060 






01333 


606060606060 






01334 


606060606060 






01335 


00000 00000 X 






A 


00000 


END 





y^ 



ORG 23 
00027 01303 



00027 

01342 
01303 
00027 
00740 
01244 
00740 
01311 
00272 



TO 01303 3 00000 

01304 07400 4 

01305 01252 

01306 07400 4 

01307 01343 

01310 02000 

01311 606060606060 PR 

01312 606060606060 

01313 622563606321 

01314 224325603162 

01315 602664434333 

01316 606063302551 

01317 256021512560 

01320 634646604421 

01321 457060216262 

01322 312745604651 

01323 606225456225 

01324 604331273063 

01325 606263216325 

01326 442545636273 

01327 604651606346 

01330 466044214570 

01331 606351214562 

01332 262551626063 

01333 466024466233 

01334 606060606060 

01335 606060606060 

01336 606060606060 

01337 512566513163 

01340 256062466451 

01341 232560475146 

01342 275121443360 

01343 00000 00000 X 
A 00000 



FORCE NEW RECORD 
ORG 23 

HTR X-ltQ«LOCREC 
ORG LOCREC 
TXH 23 
TSX PRINTt4 
HTR SOURCE »0*S0URCE+6 
TSX PRINT»4 
HTR PR#0»PR+26 
TRA SPEND 
BCD 2 



FORCE NEW RECORD 
CARD FOR DE 

1041 FT 64 



BCD SET TABLE IS FULL. THERE ARE TOO MANY ASSIGN OR SENSE LIGHT 



BCD STATEMENTSt OR TOO MANY TRANSFERS TO DOS, 



BCD 4REWRITE SOURCE PROGRAM* 



END 



I-H3 



u 



u 



TO 



ORG 24 
00030 01303 



01303 
01304 
01305 
01306 
01307 
01310 
01311 
01312 
01313 
01314 
01315 
01316 
01317 
01320 
01321 
01322 
01323 
01324 
01325 
01326 
01327 
01330 
01331 
01332 
01333 
01334 
01335 
01336 
01337 
01340 
01341 
01342 
01343 
01344 
01345 
01346 
01347 



00030 

01346 
01303 
00030 
00740 
01244 
00740 
01311 
00272 



00000 

07400 

01252 

07400 

01347 

02000 
606060606060 'PR 
606060606060 
264346666046 
266047514627 
512144603162 
606346466023 
464447432567 
336060635121 
606321224325 
603021626063 
464660442145 
706025456351 
312562336060 
512566513163 
256047514627 
512144606631 
633060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
262566255160 
635121456226 
255160212424 
512562622562 
736046516024 
466031456063 
664660472151 
636233606060 
00000 00000 X 

OOOOO END 



FORCE NEW RECORD 
ORG 24 

HTR X-ltO*LOCREC 
ORG LOCREC 
TXH 24 
TSX PRINT»4 
HTR SOURCE #0#SOURCE+6 
TSX PRINT#4 
HTR PR»0»PR+30 
TRA SPEND 
BCD 2 



FORCE NEW RECORD 
CARD FOR DE 

3156 FT 64 



BCD FLOW OF PROGRAM IS TOO COMPLEX. TRA TABLE HAS TOO MANY ENTR 



BCD 1ES. REWRITE PROGRAM WITH 



BCD 8FEWER TRANSFER ADDRESSES* OR DO IN TWO PARTS. 



fi 



1 




ORG 25 


FORCE 


NEW RECORD 


1 




00031 


.ORG 


25 FORCE NEW RECORD 




00031 


01303 01333 


HTR 


X-l»0»LOCREC CARD FOR DE 






01303 


ORG 


LOCREC 


TO 


01303 


3 00000 00031 


TXH 


25 2655 FT 75 




01304 


07400 4 00740 


TSX 


PRINT#4 




01305 


01252 01244 


HTR 


SOURCE »0»SOURCE+6 




01306 


07400 4 00740 


TSX 


PRINT»4 




01307 


01334 01311 


HTR 


PR#0*PR+19 




01310 


02000 00272 


TRA 


SPEND 




01311 


606060606060 PR 


BCD 


2 




01312 


606060606060 








01313 


623171256046 


BCD 


SIZE OF REGION TABLE EXCEEDS 50 El 




01314 


266051252731 








01315 


464560632122 








01316 


432560256723 








01317 


252524626005 








01320 


006025456351 








01321 


312562336060 








01322 


475146222122 








01323 


437060634646 








01324 


604421457060 








01325 


622547215121 


BCD 


7SEPARATE DO NESTS. REPROGRAM PROE 




01326 


632560244660 








01327 


452562636233 








01330 


606051254751 








01331 


462751214460 








01332 


475146224325 








01333 


443360606060 








01334 


00000 00000 X 






A 




00000 


END 





/'</> 



s 



U 



U 



TO 





ORG 26 


FORCE 


NEW RECORD 




00032 


ORG 


26 FORCE NEW RECORD 


00032 


01303 01334 


HTR 


X-1.0»L0CREC CARD FOR DE 




01303 


ORG 


LOCREC 


01303 


3 00000 00032 


TXH 


26 16004 FT 75 
26 7447 FT 75 


01304 


07400 4 00740 


TSX 


PRINTt4 


01305 


01252 01244 


HTR 


SOURCE »0»S0URCE+6 


01306 


07400 4 00740 


TSX 


PRINT.4 


01307 


01335 01311 


HTR 


PR»0»PR+20 


01310 


02000 00272 


TRA 


SPEND 


01311 


606060606060 PR 


BCD 


2 


01312 


606060606060 






01313 


622523633146 


BCD 


SECTION 5 TABLES EXCEED DRUM SIZE, 


01314 


456005606321 






01315 


224325626025 






01316 


672325252460 






01317 


245164446062 






01320 


317125336060 






01321 


475146224325 






01322 


446031626063 






01323 


464660434645 






01324 


277360465160 






01325 


302162606346 


BCD 


8HAS TOO MANY TRANSFERS. REPROGRAI^ 


01326 


466044214570 






01327 


606351214562 






01330 


262551623360 






01331 


605125475146 






01332 


275121446047 






01333 


514622432544 






01334 


336060606060 






01335 


00000 00000 X 








ooooo 


END 





% 



1 


ORG 27 


FORCE 


NEW RECORD 


1 


00033 


ORG 


27 


00033 


01303 01334 


HTR 


X-1»0»L0CREC 




01303 


ORG 


LOCREC 


TD 01303 


3 00000 00033 


TXH 


27 


01304 


07400 4 00740 


TSX 


PRINT»4 


01305 


01252 01244 


HTR 


SOURCE »0»S0URCE+6 


01306 


07400 4 00740 


TSX 


PRINT»4 


01307 


01335 01311 


HTR 


PRtO»PR+20 


01310 


02000 00272 


TRA 


SPEND 


01311 


606060606060 PR 


BCD 


2 


01312 


606060606060 






01313 


633025512560 


BCD 


THERE HAVE BEEN 1 


01314 


302165256022 






01315 


252545604546 






01316 


605125262551 






01317 


254523256260 






01320 


442124256031 






01321 


456063302560 






01322 


475146275121 






01323 


446063466021 






01324 


606521513121 






01325 


224325606630 


BCD 


6BLE WHICH WAS LI: 


01326 


312330606621 






01327 


626043316263 






01330 


252460216260 






01331 


216062642251 






01332 


466463314525 






01333 


602151276444 






*©1334 


254563336060 






01335 


00000 00000 X 






A 


00000 


END 





FORCE NEW RECORD 
CARD FOR DE 

533 FT 92 



r n t 



/"/7 



u 



u 



^ 



1 


ORG 2B 


FORCE 


NEW RECORD 


1 


00034 


ORG 


28 


00034 


01303 01333 


HTR 


X-1»0*LOCREC 




01303 


ORG 


LOCREC 


TO 01303 


3 00000 00034 


TXH 


28 


01304 


07400 4 00740 


TSX 


PRINT»4 


01305 


01252 01244 


HTR 


SOURCE »0» SOUR CE+6 


01306 


07400 4 00740 


TSX 


PRINTt4 


01307 


01334 0>311 


HTR 


PR»0tPR+19 


01310 


02000 00272 


TRA 


SPEND 


01311 


606060606060 PR 


BCD 


2 


01312 


606060606060 






01313 


633025512560 


BCD 


THERE HAVE BEEN < 


01314 


302165256022 






01315 


252545604665 






01316 


255160017300 






01317 


000060512526 






01320 


255125452325 






01321 


626063466062 






01322 


642251466463 






01323 


314525602151 






01324 


276444254563 






01325 


626031456063 


BCD 


7S IN THE PROGRAMi 


01326 


302560475146 






01327 


275121443360 






01330 


604446243126 






01331 


706062466451 






01332 


232560475146 






01333 


275121443360 






01334 


00000 00000 X 






A 


ooooo 


END 





FORCE NEW RECORD 
CARD FOR DE 

604 FT 92 



1 




ORG 29 






0O035 




00035 


01303 01364 
01303 


TD 


01303 


3 00000 00035 




01304 


07400 4 00740 




01305 


01365 01307 




01306 


02000 00272 




01307 


606060606060 




01310 


606060606060 




01311 


464725456062 




01312 


642251466463 




01313 


314525604546 




01314 


636031456024 




01315 


312363314645 




01316 


215170606462 




01317 


252460227060 




01320 


622523633146 




01321 


456003336060 




01322 


633031626031 




01323 


452431232163 




01324 


256260633021 




01325 


636063302560 




01326 


627062632544 




01327 


606321472560 




01330 


606060606060 




01331 


606060606060 




01332 


606060606060 




01333 


606060606060 




01334 


606060606060 




01335 


662162603144 




01336 


475146472551 




01337 


437060252431 




01340 


632524606630 




01341 


254560212424 




01342 


316331464560 




01343 


662162604421 




01344 


242560634660 




01345 


243123633146 




01346 


452151706046 




01347 


266046472545 




01350 


606264225146 




01351 


646331452562 




01352 


606462252460 




01353 


227060606060 




01354 


606060606060 




01355 


606060606060 




01356 


606060606060 




01357 


606060606060 




01360 


606060606060 




01361 


622523633146 




01362 


456001602145 




01363 


246062252363 




01364 


314645600333 



FORCE NEW RECORD 
CARD FOR DE 

7100 FT 56 



PR 



FORCE NEW RECORD 
ORG 29 

HTR X-l*0*LOCREC 
ORG LOCREC 
TXH 29 
TSX PRINT#4 
HTR PR*0fPR+46 
TRA SPEND 
BCD 2 

BCD OPEN" SUBROUTINE NOT IN DICTIONARY USED BY SECTION 3« THIS I 



BCD NDICATES THAT THE SYSTEM TAPE 



BCD WAS IMPROPERLY EDITED WHEN ADDITION WAS MADE TO DICTIONARY 



BCD F OPEN SUBROUTINES USED BY 



BCD 4SECTI0N 1 AND SECTION 3* 



rvi 



U 



U 



01365 00000 00000 X 
A 00000 END 



,r* 



TO 



ORG 30 
00036 01303 



00036 

01354 
01303 
00036 
00740 
01315 
00166 
00221 
00312 
00311 
01232 
00316 
00272 



01303 3 00000 

01304 07400 4 

01305 01355 

01306 76000 

01307 02000 

01310 50000 

01311 60100 

01312 50000 

01313 62200 

01314 02000 

01315 606060606060 PR 

01316 606060606060 

01317 624664512325 

01320 604751462751 

01321 214460234645 

01322 632131456260 

01323 214560314343 

01324 252721436047 

01325 216330604626 

01326 602643466673 

01327 604651602160 

01330 442123303145 

01331 256025515146 

01332 516030216260 

01333 512562644363 

01334 252460314560 

01335 214560314447 

01336 466262312243 

01337 256060606060 

01340 606060606060 

01341 606060606060 

01342 606060606060 

01343 302143636021 

01344 266325516021 

01345 602431653124 

01346 256023302523 

01347 426063256263 

01350 336060233025 

01351 234260624664 

01352 512325604751 

01353 462751214433 

01354 606060606060 

01355 00000 00000 X 

00000 



FORCE 
ORG 
HTR 
ORG 
TXH 
TSX 
HTR 
SWT 
7RA 
CLA 
STO 
CLA 
STD 
TRA 
BCD 



NEW RECORD 

30 

X-1»0#L0CREC 

LOCREC 

30 

PRINT#4 

PR»0tPR+32 

6 

D1GRTN 

PRNT4 

PRNT2 

ZERO 

HTR4 

SPEND 

2 



FORCE NEW RECORD 
CARD FOR DE 

425 FT 67 



BCD SOURCE PROGRAM CONTAINS AN ILLEGAL PATH OF FLOWt OR A MACHIN 



BCD E ERROR HAS RESULTED IN AN IMPOSSIBLE 



BCD HALT AFTER A DIVIDE CHECK TEST. CHECK SOURCE PROGRAM. 



END 



u 



u 



n 



1 




ORG 31 


1 




00037 




00037 


01303 01400 
01303 


TO 


01303 


3 00000 0O037 




01304 


07400 4 00740 




01305 


01400 01315 




0130% 


76000 00166 




01307 


02000 00221 




01310 


50000 00312 




01311 


60100 00311 




01312 


50000 01232 




01313 


62200 00316 




01314 


02000 00272 




01315 


606060606060 




01316 


606060606060 




01317 


214560216363 




01320 


254447636063 




01321 


466026314524 




01322 


602160452144 




01323 


256031456063 




01324 


302560314563 




01325 


255145214343 




01326 


706024252631 




01327 


452524606521 




01330 


513121224325 




01331 


606321224325 




01332 


603021626026 




01333 


213143252433 




01334 


606031266063 




01335 


302560624664 




01336 


512325604751 




01337 


462751214460 




01340 


222531452760 




01341 


606060606060 




01342 


606060606060 




01343 


234644473143 




01344 


252460316260 




01345 


256763512544 




01346 


254370604321 




01347 


512725736063 




01350 


303162606263 




01351 


464760442170 




01352 


603145243123 




01353 


216325602145 




01354 


604665255143 




01355 


214760462660 




01356 


632122432562 




01357 


603145602346 




01360 


512560442544 




01361 


465170336060 




01362 


452144256031 




01363 


456050642562 




01364 


633146456060 



PR 



FORCE 


NEW RECORD 


ORG 


31 


HTR 


X-1*0*L0CREC 


ORG 


LOCREC 


TXH 


31 


TSX 


PR I NT f 4 


HTR 


PRrO*PR+51 


SWT 


6 


TRA 


DIGRTN 


CLA 


PRNT4 


STO 


PRNT2 


CLA 


ZERO 


STD 


HTR4 


TRA 


SPEND 


BCD 


2 



FORCE NEW RECORD 
CARD FOR DE 

277 FT 113 



BCD AN ATTEMPT TO FIND A NAME IN THE INTERNALLY DEFINED VARIABLE 



BCD TABLE HAS FAILED* IF THE SOURCE PROGRAM BEING 



BCD COMPILED IS EXTREMELY LARGE* THIS STOP MAY INDICATE AN OVERL 



BCD AP OF TABLES IN CORE MEMORY* NAME IN QUESTION 



01365 


606060606060 


01366 


606060606060 


01367 


316260626346 


01370 


512524603145 


01371 


604325266360 


01372 


444662636002 


01373 


006022316362 


01374 


604626604346 


01375 


232163314645 


01376 


600105073360 


01377 


606060606060 


01400 


606060606060 


01401 


00000 00000 X 




00000 



BCO IS STORED IN LEFT MOST 20 BITS OF LOCATION 157t 



END 



<y 



u 



o 



TO 



• 


ORG 32 




00040 


00040 


01303 01404 




01303 


01303 


3 00000 00040 


01304 


07400 4 00740 


01305 


01405 01315 


01306 


76000 00166 


01307 


02000 00221 


01310 


50000 00312 


01311 


60100 00311 


01312 


50000 01232 


01313 


62200 00316 


01314 


02000 00272 


01315 


606060606060 


01316 


606060606060 


01317 


214560216363 


01320 


254447636030 


01321 


216260222525 


01322 


456044212425 


01323 


606346602162 


01324 


623127456063 


01325 


664660465160 


01326 


444651256062 


01327 


634651212725 


01330 


604346232163 


01331 


314645626063 


01332 


466063302560 


01333 


622144256065 


01334 


215131212243 


01335 


256045214425 


01336 


336060262131 


01337 


436451256046 


01340 


266060606060 


01341 


606060606060 


01342 


606060606060 


01343 


622523633146 


01344 


456001604751 


01345 


31442560*651 


01346 


606225236331 


01347 


464560056047 


01350 


513144256031 


01351 


456063302560 


01352 


475125472151 


01353 


216331464560 


01354 


462660633025 


01355 


606321224325 


01356 


626046266025 


01357 


506431652143 


01360 


254523256023 


01361 


432162622562 


01362 


603021626046 


01363 


232364515125 



PR 



FORCE 


NEW RECORD 


ORG 


32 


HTR 


X-1»0»L0CREC 


ORG 


LOCREC 


TXH 


32 




32 


TSX 


PRINT»4 


HTR 


PR»0»PR+56 


SWT 


6 


TRA 


OIGRTN 


CLA 


PRNT4 


STO 


PRNT2 


CLA 


ZERO 


STD 


HTR4 


TRA 


SPEND 


BCD 


2 



FORCE NEW RECORD 
CARD FOR DE 



341 FT 
341 FT 



96 
98 



BCD AN ATTEMPT HAS BEEN MADE TO ASSIGN TWO OR MORE STORAGE LOCAT 



BCD IONS TO THE SAME VARIABLE NAME* FAILURE OF 



BCD SECTION 1 PRIME OR SECTION 5 PRIME IN THE PREPARATION OF THE 



BCD TABLES OF EQUIVALENCE CLASSES HAS OCCURRED. 



..■<* 



01364 


247360606060 


01365 


606060606060 


01366 


606060606060 


01367 


465160633025 


01370 


512560316260 


01371 


214560314523 


©1372 


464562316263 


01373 


214523706031 


01374 


456023464444 


01375 


464573602550 


01376 


643165736021 


01377 


452460243144 


01400 


606225456325 


01401 


452325626031 


01402 


456062466451 


01403 


232560432145 


01404 


276421272533 


01405 


00000 00000 




00000 



BCD OR THERE IS AN INCONSISTENCY IN COMMON* EQUIV* AND DIM SENTE 



BCD 4NCES IN SOURCE LANGUAGE* 



END 



,& 



u 



u 



ORG 33 
00041 01303 



TD 



01303 
01304 
01305 
01306 
01307 
01310 
01311 
01312 
01313 
01314 
01315 
01316 
01317 
01320 
01321 
01322 
01323 
01324 
01325 
01326 
01327 
01330 
01331 
01332 
01333 
01334 
01335 
01336 
01337 
01340 
01341 
01342 
01343 
01344 
01345 
01346 
01347 
01350 
01351 
01352 
01353 
01354 
01355 
01356 
01357 
01360 
01361 
01362 
01363 
01364 



00000 
76200 
46000 
70000 
-0 50000 
77100 
56000 
-0 76300 
60200 
07400 4 
01404 
76000 
02000 
50000 
60100 
50000 
62200 
02000 
00000 
606060606060 
606060606060 
214560216363 
254447636063 
466026314524 
602145604647 
255121633146 
456021222251 
256531216331 
464560314560 
633025606321 
224325604626 
606230215125 
604647255121 
633146456260 
302162602621 
314325243360 
603126606330 
256062466451 
232560606060 
606060606060 
606060606060 
475146275121 
446022253145 
276023464447 
314325246031 
626025676351 
254425437060 
432151272560 
633031626044 
217060314524 



00041 

01403 
01303 
00041 
00304 
01325 
01257 
01257 
00022 
00717 
00022 
01403 
00740 
01326 
00166 
00221 
00312 
00311 
01232 
00316 
00272 
00726 



A 
PR 



FORCE NEW RECORD 
CARD FOR DE 

352 Ft 113 



FORCE NEW RECORD 
ORG 33 

HTR X-1»0»LOCREC 
ORG LOCREC 
TXH 33 
RDR 4 
LDA A 
CPY ERAS 
CAL ERAS 
ARS 18 
LDQ BLANKS 
LGL 18 
SLW OP 
TSX PRINT«4 
HTR PR*0»PR+46 
SWT 6 

TRA DIGRTN 
CLA PRNT4 
STO PRNT2 
CLA ZERO 
STD HTR4 
TRA SPEND 
HTR8726 
BCD 2 

BCD AN ATTEMPT TO FIND AN OPERATION ABBREVIATION IN THE TABLE OF 



BCD SHARE OPERATIONS HAS FAILED. IF THE SOURCE 



BCD PROGRAM BEING COMPILED IS EXTREMELY LARGE THIS MAY INDICATE 



01365 


312321632560 




01366 


214560466525 


BCD 


01367 


514321476046 




01370 


266063212243 




01371 


256260314560 




01372 


234651256044 




01373 


254446517033 




01374 


606060606060 




01375 


606060606060 




01376 


606060606060 




01377 


606060606060 




01400 


633025604647 


BCD 3 


01401 


255121633146 




01402 


456031626060 




01403 


606060606060 OP 


BCD 1 


01404 


00000 00000 X 






00000 


END . 



BCD AN OVERLAP OF TABLES IN CORE MEMORY. 



BCD 3 THE OPERATION IS 



*<1- 



u 



u 



o 



TD 



ORG 34 
00042 01303 



01303 3 00000 

01304 76200 

01305 46000 

01306 70000 

01307 -0 50000 

01310 56000 

01311 -0 76300 

01312 60200 

01313 -0 76300 

01314 56000 

01315 -0 76300 

01316 60200 

01317 07400 4. 

01320 01411 

01321 02000 

01322 00000 

01323 606060606060 

01324 606060606060 

01325 255151465160 

01326 314560232151 

01327 246062255064 

01330 254523256046 

01331 266043312251 

01332 215170604751 

01333 462751214460 

01334 464560627062 

01335 632544606321 

01336 472560013360 

01337 602321512460 

01340 512521246062 

01341 304664432460 

01342 222560606060 

01343 606060606060 

01344 606060606060 

01345 606060606060 

01346 606060606060 

01347 606060606060 

01350 606060606060 

01351 216023464563 

01352 314564216331 

01353 464560462660 

01354 433122512151 

01355 706047514627 

01356 512144605125 

01357 506425626325 

01360 247360226463 

01361 604751462751 

01362 214460232151 

01363 246030216260 

01364 222525456026 



00042 
01410 
01303 
00042 
00304 
01322 
01401 
00717 
01401 
00036 
01401 
00006 
00717 
00036 
01402 
00740 
01323 
00272 
01376 



A 
PR 



FORCE 
ORG 
HTR 
ORG 
TXH 
RDR 
LDA 
CPY 
CAL 
LDQ 
LGL 
SLW 
LGL 
LDQ 
LGL 
SLW 
TSX 
HTR 
TRA 
HTR8 
BCD 



NEW RECORD 

34 

X-1»0#LOCREC 

LOCREC 

34 

4 

A 

ERWRD 

BLANKS 

ERWRD 

30 

ERWRD 

6 

BLANKS 

30 

ERWRD+1 

PRINTf4 

PR»0»PR+54 

SPEND 

1376 

2 



FORCE NEW RECORD 
CARD FOR DE 

377 FT 115 



BCD ERROR IN CARD SEQUENCE OF LIBRARY PROGRAM ON SYSTEM TAPE !• 



BCD CARD READ SHOULD BE 



BCD A CONTINUATION OF LIBRARY PROGRAM REQUESTED* BUT PROGRAM CAR 



BCD D HAS BEEN FOUND INSTEAD. 



u# 



01365 


466445246031 


01366 


456263252124 


01367 


336060606060 


01370 


606060606060 


01371 


606060606060 


01372 


606060606060 


01373 


606060606060 


01374 


606060606060 


01375 


076043252663 


01376 


605146666046 


01377 


266023215124 


01400 


605125212462 


01401 


606060606060 


01402 


606060606060 


01403 


263145246025 


01404 


515146516021 


01405 


452460512566 


01406 


513163256043 ' 


01407 


312251215170 


01410 


336060606060 


01411 


00000 00000 




00000 



BCD 47 LEFT ROW OF CARD READS 



ERWRD BCD 2 



BCD 6FIND ERROR AND REWRITE LIBRARY* 



END 



/' 







u 



u 



o 



1 




ORG 35 


FORCE 


NEW RECORD 


1 




00043 


ORG 


35 FORCE NEW RECORD 




00043 


01303 01352 


HTR 


X-1»0«L0CREC CARD FOR DE 






01303 


ORG 


LOCREC 


TO 


01303 


3 00000 00043 


TXH 


35 543 FT 115 




01304 


07400 4 00740 


TSX 


PRINT#4 




01305 


01353 01307 


HTR 


PR»0tPR+36 




01306 


02000 00221 


TRA 


DIGRTN 




01307 


606060606060 PR 


BCD 


2 




01310 


606060606060 








01311 


632147256023 


BCD 


TAPE CHECK IN READING RECORD FROM 




01312 


302523426031 








01313 


456051252124 








01314 


314527605125 








01315 


234651246026 








01316 


514644606330 








01317 


256062706263 








01320 


254460632147 








01321 


256001336060 








01322 


263165256021 








01323 


636325444763 


BCD 


TTEMPTS HAVE BEEN MADE TO READ TH 




01324 


626030216525 








01325 


602225254560 








01326 


442124256063 








01327 


466051252124 








01330 


606330316260 








01331 


606060606060 








01332 


606060606060 








01333 


606060606060 








01334 


606060606060 








01335 


512523465124 


BCD 


RECORD CORRECTLY. MAY BE NECESSAF 




01336 


602346515125 








01337 


236343703360 








01340 


604421706022 








01341 


256045252325 








01342 


626221517060 








01343 


634660512566 








01344 


513163256043 








01345 


312251215170 








01346 


602631432560 








01347 


604645606330 


BCD 


4 ON THE SYSTEM TAPE* 




01350 


256062706263 








01351 


254460632147 








01352 


253360606060 






A 


01353 


00000 00000 X 
00000 


END 





THE SYSTEM TAPE 1. FIVE A 



,,y- 



1 




ORG 36 


1 




00044 




00044 


01303 01354 
01303 


TD 


01303 


3 00000 00044 




01304 


07400 4 00740 




01305 


01355 01315 




01306 


76000 00166 




01307 


02000 00221 




01310 


50000 00312 




01311 


60100 00311 




01312 


5000O 01232 




01313 


62200 00316 




01314 


02000 00272 




01315 


606060606060 




01316 


606060606060 




01317 


216062642251 




01320 


466463314525 




01321 


602321434360 




01322 


452144256046 




01323 


516021604331 




01324 


225121517060 




0132S 


266445236331 




01326 


464560302162 




01327 


602225254560 




01330 


646225246021 




01331 


626021606521 




01332 


513121224325 




01333 


604521442573 




01334 


604651606330 




01335 


255125603021 




01336 


626022252545 




01337 


602160442123 




01340 


303145256060 




01341 


606060606060 




01342 


606060606060 




01343 


255151465160 




01344 


314560234644 




01345 


473143314527 




01346 


606330256045 




01347 


214425336060 




01350 


233025234260 




01351 


624664512325 




01352 


604751462751 




01353 


214433606060 




01354 


606060606060 


A 


01355 


o ooooo o ooooo ; 

00000 



PR 



FORCE 


NEW RECORD 


0R6 


36 


HTR 


X-l»0tL0CREC 


ORG 


LOCREC 


TXH 


C 36 


TSX 


PRINT»4 


HTR 


PR»0»PR+32 


SWT 


6 


TRA 


DIGRTN 


CLA 


PRNT4 


STO 


PRNT2 


CLA 


ZERO 


STD 


HTR4 


TRA 


SPEND 


BCD 


2 



FORCE NEW RECORD 
CARD FOR DE 

441 FT 98 



BCD A SUBROUTINE CALL NAME OR A LIBRARY FUNCTION HAS BEEN USED A 



BCD S A VARIABLE NAME* OR THERE HAS BEEN A MACHINE 



BCD ERROR IN COMPILING THE NAME. CHECK SOURCE PROGRAM. 



END 



dl 



U 



u 



TO 



ORG 37 
00045 01303 



01303 3 00000 

01304 07400 4 

01305 01375 

01306 76000 

01307 02000 

01310 50000 

01311 60100 

01312 50000 

01313 62200 

01314 02000 

01315 606060606060 

01316 606060606060 

01317 633025602162 

01320 623127454425 

01321 456360462660 

01322 314562635164 

01323 236331464560 

01324 626346512127 
0.1325 256043462321 

01326 633146456260 

01327 244625626045 

01330 466360233025 

01331 234260663163 

01332 306063302163 

01333 602731652545 

01334 603145602160 

01335 475125653146 

01336 646260512523 

01337 465124336060 

01340 606060606060 

01341 606060606060 

01342 606060606060 

01343 312660633025 

01344 606246645123 

01345 256047514627 

01346 512144602225 

01347 314527602346 

01350 444731432524 

01351 603162602567 

01352 635125442543 

01353 706043215127 

01354 257360633031 

01355 626062634647 

01356 604421706031 

01357 452431232163 

01360 256060606060 

01361 606060606060 

01362 606060606060 

01363 606060606060 

01364 606060606060 



00045 
01374 
01303 
00045 
00740 
01315 
00166 
00221 
00312 
00311 
01232 
00316 
00272 



PR 



FORCE 


NEW RECORD 




ORG 


37 


FORCE NEW RECORD 


HTR 


X-1#0»L0CREC 


CARD FOR DE 


ORG 


LOCREC 




TXH 


37 


562 FT 113 


TSX 


PRINT#4 




HTR 


PR»0#PR+48 




SWT 


6 




TRA 


OIGRTN 




CLA 


PRNT4 




STO 


PRNT2 




CLA 


ZERO 




STD 


HTR4 




TRA 


SPEND 




BCD 


2 





BCD THE ASSIGNMENT OF INSTRUCTION STORAGE LOCATIONS DOES NOT CHE 



BCD CK WITH THAT GIVEN IN A PREVIOUS RECORD. 



BCD IF THE SOURCE PROGRAM BEING COMPILED IS EXTREMELY LARGE* THl 



BCD S STOP MAY INDICATE 



,, t * 



01365 


606060606060 


01366 


606060606060 


01367 


21*560466525 


01370 


514321476046 


01371 


266063212243 


01372 


256260314560 


01373 


442544465170 


01374 


336060606060 


01375 


00000 00000 




00000 



BCD 6AN OVERLAP OF TABLES IN MEMORY. 



END 



u 



u 



n 



ORG 38 



TO 



00046 



00046 01303 01732 

01303 

01303 3 00000 00046 



FORCE NEW RECORD „ c ^«^ 

ORG 38 FORCE NEW RECORD 

END OF FILE*****«*******************»*********************** 
HTR X-1»0»LOCREC CARD FOR DE 
ORG LOCREC 



01304 07400 4 00740 

01305 01244 01237 

01306 -0 33400 3 01232 

01307 30000 1 01453 

01310 40200 01235 

01311 10000 01427 

01312 1 77763 1 01313 

01313 3 77630 1 01307 

01314 07400 4 00740 

01315 01427 01317 

01316 00000 01452 

01317 606060606060 

01320 606060606060 

01321 434623216331 

01322 464560462660 

01323 255151465173 

01324 606630312330 

01325 603021626022 

01326 252545604751 

01327 314563252473 

01330 603021626023 

01331 216462252460 

01332 243121274546 

01333 626331236051 

01334 252346512460 

01335 456444222551 

01336 600310606060 

01337 606060606060 

01340 606060606060 

01341 606060606060 

01342 606060606060 

01343 606060606060 

01344 606060606060 

01345 634660222560 

01346 512521246031 

01347 453360606330 

01350 316260512523 

01351 465124602346 

01352 444721512562 

01353 606330256043 



ER 



TXH 38 

38 

38 

38 

38 

38 

38 

38 

38 
TSX PRINT#4 
HTR MACHlN»Q«MACHIN+5 
LXD ZERO t 3 
CLA A»l 
SUB ERWORD 
TZE B 

TXI C»lt-13 
TXH D»l»-13*8 
TSX PRINT»4 
HTR ER*0tER+72 
HTR E 
BCD 2 



425 
107 
277 
260 
465 
260 
247 
243 
241 



FT 
FT 
FT 
FT 
FT 
FT 



98 
92 
92 
96 
96 
98 



FT 101 
FT 105 
FT 115 



BCD LOCATION OF ERROR* WHICH HAS BEEN PRINTED. HAS CAUSED DIAGNO 



BCD STIC RECORD NUMBER 38 



BCD TO BE READ IN* THIS RECORD COMPARES THE LOCATION TO A LIST 



v,v 



01354 


462321633146 


01355 


456063466021 


01356 


604331626360 


01357 


462660076047 


01360 


466262312243 


01361 


256024516444 


01362 


605125212460 


01363 


262131436451 


01364 


256273602264 


01365 


636063302560 


01366 


622521512330 


01367 


606060606060 


01370 


606060606060 


01371 


302162602621 


01372 


314325243360 


01373 


606330256025 


01374 


515146516260 


01375 


215125604331 


01376 


626325246031 


01377 


456001040503 


01400 


736001040503 


01401 


604743646260 


01402 


010373602563 


01403 


233360604751 


01404 


256262606263 


01405 


215163603126 


01406 


607046646066 


01407 


316230606346 


01410 


606060606060 


01411 


606060606060 


01412 


606060606060 


01413 


606060606060 


01414 


606060606060 


01415 


512562634651 


01416 


256044212330 


01417 


314525606346 


01420 


606263216325 


01421 


603145606630 


01422 


312330602551 


01423 


514651604623 


01424 


236451512524 


01425 


336060606060 


01426 


606060606060 


01427 


50000 1 01454 8 


01430 


60100 2 01631 


01431 


1 77777 2 01432 


01432 


-3 77772 2 01434 F 


01433 


1 77777 1 01427 


01434 


50000 1 01455 G 


01435 


60100 01652 


01436 


50000 1 01456 


01437 


60100 01660 


01440 


50000 1 01457 


01441 


60100 01665 



BCD OF 7 POSSIBLE DRUM READ FAILURES* BUT THE SEARCH 



BCD HAS FAILED. THE ERRORS ARE LISTED IN 1453» 1453 PLUS 13. ET 



BCD C« PRESS START IF YOU WISH TO 



BCD RESTORE MACHINE TO STATE IN WHICH ERROR OCCURRED. 



CLA A1SIX»1 

STO PR1SIX»2 

TXI F»2»-l 

TXL G»2»-6 

TXI Btl»-1 

CLA A1SIX+1*1 

STO PR2 

CLA A1SIX+2»1 

STO PR3 

CLA AlSIX+3fl 

STO PR4TW0 



/ 



O 



u 



01442 50000 1 

01443 60100 

01444 50000 1 

01445 60100 

01446 50000 1 

01447 60100 

01450 07400 4 

01451 01733 

01452 02000 

01453 +000425000000 

01454 452760635121 

01455 456226255160 

01456 652523634651 

01457 606321224325 

01460 606060606060 

01461 606060606060 

01462 516444600333 

01463 600401013360 

01464 316260314560 

01465 040103336060 

01466 314560060205 

01467 336060602346 

01470 +000260000000 

01471 452760255064 

01472 316360632122 

01473 432560606060 

01474 606060606060 

01475 606060606060 

01476 606060606060 

01477 516444600133 

01500 600204013360 

01501 316260314560 

01502 030601336060 

01503 314560030602 

01504 336060602346 

01505 +000465000000 

01506 452760623171 

01507 256063212243 

01510 256060606060 

01511 606060606060 

01512 606060606060 

01513 606060606060 

01514 516444600233 

01515 600405003360 

01516 316260314560 

01517 040503336060 

01520 314560030602 

01521 336060602346 

01522 +000247000000 

01523 452760264651 

01524 626422606321 

01525 224325606060 

01526 606060606060 

01527 606060606060 



01460 
01666 
01461 
01700 
01462 
01701 
00740 
01623 
00221 E 

A 

A1SIX 



A2 
A3 
A4TW0 



CLA A1SIX+4#1 
STO PR4TW0+1 
CLA A1SIX+5»1 
STO PR5TW0 
CLA A1SIX+6»1 
STO PR5TWO+1 
TSX PRINT#4 
HTR PR»0»PR+72 
TRA DI6RTN 
OCT 000425000000 



SECTION VI RECORD L62 



BCD 6NG TRANSFER VECTOR TABLE 



BCD 1RUM 3. 

BCD 1 411* 

BCD 2IS IN 413. 



A5TW0 BCD 2IN 625. 



CO 



OCT 000260000000 
BCD 6NG EQUIT TABLE 



BCD 1RUM 1* 

BCD 1 241. 

BCD 2IS IN 361* 



SECTION VI RECORD L 61 OR 62 



BCD 2IN 362* 



CO 



OCT 000465000000 
BCD 6NG SIZE TABLE 



SECTION VI RECORD L61 



BCD 1RUM 2. 

BCD 1 450. 

BCD 2IS IN 453. 

BCD 21 N 362. CO 

OCT 000247000000 SECTION VI 
BCD 6NG FORSUB TABLE 



- RECORD L 64 



/' 



ffJ 



01530 606060606060 

01531 516444600333 

01532 600203033360 

01533 316260314560 

01534 020305336060 

01535 314560030702 

01536 336060602346 

01537 +000245000000 
©1540 452760264651 

01541 626422606321 

01542 224325606060 

01543 606060606060 

01544 606060606060 

01545 606060606060 

01546 516444600333 

01547 600203013360 

01550 316260314560 

01551 020303336060 

01552 314560050506 

01553 336060602346 

01554 +000241000000 

01555 452760635121 

01556 456226255160 

01557 652523634651 

01560 606321224325 

01561 606060606060 

01562 606060606060 

01563 516444600333 

01564 600202053360 

01565 316260314560 

01566 02020733606,0 

01567 314560010005 

01570 043360602346 

01571 +000277000000 

01572 452760623171 

01573 256063212243 

01574 256060606060 

01575 606060606060 

01576 606060606060 

01577 606060606060 

01600 516444600233 

01601 600206023360 

01602 316260314560 

01603 020605336060 

01604 314560010305 

01605 013360602346 

01606 +000107000000 

01607 452760635121 

01610 456226255160 

01611 652523634651 

01612 606321224325 

01613 606060606060 

01614 606060606060 

01615 516444600333 



BCD 1RUM 3. 

BCD 1 233« 

BCD 2IS IN 235* 

BCD 2 IN 372. CO 

OCT 000245000000 SECTION VI 
BCD 6NG FORSUB TABLE 



BCD 1RUM 3. 

BCD 1 231* 

BCD 2IS IN 233. 



- RECORD L66 



BCD 2IN 556* 



CO 



OCT 000241000000 SECTION VI 
BCD 6NG TRANSFER VECTOR TABLE 



BCD 1RUM 3. 

BCD 1 225# 

BCD 2IS IN 227. 



- RECORD L 73 



* BCD 2IN 1054. CO 

OCT 000277000000 
BCD 6NG SIZE TABLE 



SECTION PRE 6 



BCD 1RUM 2. 

BCD 1 262. 

BCD 2IS IN 265. 

BCD 2IN 1351. CO 

OCT 000107000000 SECTION PRE 6 
BCD 6NG TRANSFER VECTOR TABLE 



BCD 1RUM 3. 



f H 



o 



u 



01616 
01617 
01620 
01621 
01622 
01623 
01624 
01625 
01626 
01627 
01630 
01631 
01632 
01633 
01634 
01635 
01636 
01637 
01640 
01641 
01642 
01643 
01644 
01645 
01646 
01647 
01650 
01651 
01652 
01653 
01654 
01655 
01656 
01657 
01660 
01661 
01662 
01663 
01664 
01665 
01666 
01667 
01670 
01671 
01672 
01673 
01674 
01675 
01676 
01677 
01700 
01701 
01702 
01703 



'600703336060 
316260314560 
070533606060 
314560010306 
063360602346 
606060606060 
606060606060 
233025234260 
626444602551 
514651603145 
605125212431 
452760635121 
456226255160 
652523634651 
606321224325 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
265146446024 
516444600333 
606023464770 
604346464760 
222527314562 
602163604346 
232163314645 
600401013360 
606062632151 
633145276024 
516444602124 
245125626260 
316260314560 
040103336060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
245164446023 
302523426062 
644460316260 
314560060205 
336060602346 
444764632524 
602330252342 



PR 



BCD 1 73. 

BCD 2IS IN 75. 

BCD 21 N 1366* CO 
BCD 2 

BCD 4CHECK SUM ERROR IN READ I 



PR1SIX BCD 6NG TRANSFER VECTOR TABLE 



BCD 



BCD 1FR0M D 
PR2 BCD 1RUM 3. 

BCD 5 COPY LOOP BEGINS AT LOCATION 



PR3 BCD 1 411. 

BCD 4 STARTING DRUM ADDRESS 



PR4TW0 BCD 8IS IN 413. 



BCD 3DRUM CHECK SUM IS 
PR5TW0 BCD 3IN 625. COMPUTED 

BCD CHECK SUM IS NOT STORED. THEREFORE IT IS NOT AVAILABLE. 



01704 


606264446031 


01705 


626045466360 


01706 


626346512524 


01707 


736063302551 


01710 


252646512560 


01711 


316360316260 


01712 


454663602165 


01713 


213143212243 


01714 


253360606060 


01715 


606060606060 


01716 


606060606060 


01717 


606060606060 


01720 


606060606060 


01721 


263165256021 


01722 


636325444763 


01723 


626030216525 


01724 


602225254560 


01725 


442124256063 


01726 


466051252124 


01727 


606330316260 


01730 


632122432560 


01731 


234651512523 


01732 


634370336060 


01733 


00000 00000 




00000 



BCD 4 



BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS TABLE CORRECTLY. 



END 



/''-' 



u 



o 



/"~\ 



I ORG 39 

1 00047 

00047 01303 02017 

01303 

TD 01303 3 00000 00047 



01304 07400 4 00740 

01305 01244 01237 

01306 30000 01235 

01307 40000 01236 

01310 60100 02020 

01311 -0 53400 3 01232 

01312 50000 1 01456 

01313 40200 02020 

01314 10000 01432 

01315 1 77765 1 01316 

01316 3 77546 1 01312 

01317 07400 4 00740 

01320 01432 01322 

01321 00000 01455 

01322 606060606060 

01323 606060606060 

01324 434623216331 

01325 464560462660 

01326 255151465173 

01327 606630312330 

01330 603021626022 

01331 252545604751 

01332 314563252473 

01333 603021626023 

01334 216462252460 

01335 243121274546 

01336 626331236051 

01337 252346512460 

01340 456444222551 

01341 600311606060 

01342 606060606060 

01343 606060606060 

01344 606060606060 

01345 606060606060 

01346 606060606060 

01347 606060606060 



ER 



FORCE 


NEW RECORD 








ORG 


39 


FORCE 


NEVi 


f RECORD 


HTR 


X-1»0»L0CREC 


CARD 


FOR 


DE 


ORG 


LOCREC 








TXH 


39 


47 


FT 


58 




39 


734 


FT 


45 




39 


123 


FT 


47 




39 


140 


FT 


56 




39 


305 


FT 


56 




39 


41 


FT 


60 




39 


607 


FT 


60 




39 


70 


FT 


92 




39 


246 


FT 


92 




39 


442 


FT 


96 




39 


500 


FT 


96 




39 


230 


FT 


101 




39 


222 


FT 


105 




39 


222 


FT 


115 


TSX 


PRINT»4 








HTR 


MACHlN»0#MACHJN+5 








CLA 


ERWORD 








ADO 


RECORD 








STO 


X 








LXD 


2ERO#3 








CLA 


A»l 








SUB 


X 








TZE 


B 








TXI 


C«l»-ll 








TXH 


D»l#-ll*14 








TSX 


PRINT»4 








HTR 


ER»0»ER+72 








HTR 


E 








BCD 


2 









BCD LOCATION OF ERROR* WHICH HAS BEEN PRINTED* HAS CAUSED DIAGNO 



BCD STIC RECORD NUMBER 39 



01350 634660222560 

01351 512521246031 

01352 453360633031 

01353 626051252346 

01354 512460234644 

01355 472151256260 

01356 633025604346 

01357 232163314645 

01360 606346602160 

01361 433162636046 

01362 266001046047 

01363 466262312243 

01364 256024516444 

01365 605125212460 

01366 262131436451 

01367 256273602264 

01370 636063302560 

01371 622521512330 

01372 606060606060 

01373 606060606060 

01374 302162602621 

01375 314325243360 

01376 606330256025 

01377 515146516260 
014C0 215125604331 

01401 626325246031 

01402 456001040506 

01403 736001040506 

01404 604743646260 

01405 010173602563 

01406 233360604751 

01407 256262606263 

01410 215163603126 

01411 607046646066 

01412 316230606346 

01413 606060606060 

01414 606060606060 

01415 606060606060 

01416 606060606060 

01417 606060606060 

01420 512562634651 

01421 256044212330 

01422 314525606346 

01423 606263216325 

01424 603145606630 

01425 312330602551 

01426 514651604623 

01427 236451512524 

01430 606060606060 

01431 606060606060 

01432 50000 1 01457 B 

01433 60100 2 01722 

01434 1 77777 2 01435 

01435 -3 77774 2 01437 F 



BCD TO BE READ IN« THIS RECORD COMPARES THE LOCATION TO A LIST 



BCD F 14 POSSIBLE DRUM READ FAILURES* BUT THE SEARCH 



BCD HAS FAILED. THE ERRORS ARE LISTED IN 1456» 1456 PLUS 11 » ET 



BCD C. PRESS START IF YOU WISH TO 



BCD RESTORE MACHINE TO STATE IN WHICH ERROR OCCURRED 



CLA A1F0R»1 
STO PR1F0R,2 
TXI F*2»-l 
TXL G»2»-4 



'// 



• 



u 



o 



o 



J I 



01436 
01437 
01440 
014*1 
014*2 
01443 
01444 
01445 
01446 
01447 
01450 
01451 
01452 
01453 
01454 
01455 
01456 
01457 
01460 
01461 
01462 
01463 
01464 
01465 
01466 
01467 
01470 
01471 
01472 
01473 
01474 
01475 
01476 
01477 
01500 
01501 
01502 
01503 
01504 
01505 
01506 
01507 
01510 
01511 
01512 
01513 
01514 
01515 
01516 
01517 
01520 
01521 
01522 
01523 



77777 
50000 
60100 
50000 
60100 
50OO0 
60100 
50000 
60100 
50000 



01432 
01460 
01737 
01461 
01745 
01462 
01752 
01463 
01753 
01464 



60100 01767 



50000 1 01465 
60100 01774 
07400 4 00740 
02020 01710 
02000 00221 
+000047000072 
606351216263 
466063212243 
256060606060 
606060606060 
516444600333 
600306336060 
626031456002 
030302336060 
466002030405 
020304063360 
+000041000074 
606362672346 
446063212243 
256060606060 
606060606060 
516444600333 
600300336060 
626031456001 
010407336060 
466001020206 
010202073360 
+000607000074 
602631672346 
456063212243 
256060606060 
606060606060 
516444600233 
600507073360 
626071255146 
336060606060 
466001020206 
010202073360 
+000123000057 
602631672346 
456063212243 
256060606060 
606060606060 



TXI B«l»-1 
G CLA MFOR+l»l 
STO PR2 
CLA A1F0R+2»1 
STO PR3 
CLA AlF0R+3tl 
STO PR4TW0 
CLA A1F0R+4»1 
STO PR4TW0+1 
CLA A1F0R+5»1 
STO PR 5 
CLA AlF0R+6tl 
STO PR6 
TSX PRINT*4 
HTR PR»0«PR+72 
E TRA DIGRTN 
A OCT 000047000072 
A1FOR BCD 4 TRASTO TABLE 



A2 BCO 1RUM 3. 

A3 BCO 1 36. 

A4TW0 BCD 2S IN 2332. 

A5 BCD 10 2345 

A6 BCD 12346, 

OCT 000041000074 

BCD 4 TSXCOM TABLE 



BCD 1RUM 3* 

BCD 1 30 • 

BCD 2S IN 1147. 

BCD 10 1226 

BCD 11227. 

OCT 000607000074 

BCD 4 FIXCON TABLE 



BCD 1RUM 2. 
BCD 1 577. 
BCD 2S ZERO. 

BCD 10 1226 

BCD 11227. 

OCT 000123000057 

BCD 4 FIXCON TABLE 



SECTION II - FT 58 



SECTION III - FT 60 



SECTION III - FT 60 



SECTION II - FT 47 BLOCK. 5 



iV 



01524 


516444600233 


BCD 


1RUM 2* 








01525 


600701336060 


BCD 


1 71* 








01526 


626071255146 


BCD 


2S ZERO* 








01527 


336060606060 












01530 


466001020460 


BCD 


10 124 








01531 


010205336060 


BCD 


1125* 








01532 


+000734000055 


OCT 


000734000055 


SECTION 


II - FT 


45 


01533 


602631672346 


BCD 


4 FIXCON TABLE 








01534 


456063212243 












01535 


256060606060 












01536 


606060606060 












01537 


516444600233 


BCD 


1RUM 2* 








01540 


600701003360 


BCD 


1 710. 






• 


01541 


626071255146 


BCD 


2S ZERO. 








01542 


336060606060 












01543 


466001000007 


BCD 


10 1007 








01544 


010001003360 


BCD 


11010* 








01545 


+000070000134 


OCT 


000070000134 


SECTION 


PRE 6 - 


FT 92 


01546 


606351214562 


BCD 


4 TRANSFER VECTOR 


TABLE 


• 




01547 


262551606525 












01550 


236346516063 












01551 


212243256060 












01552 


516444600333 


BCD 


1RUM 3* 








01553 


600506336060 


BCD 


1 56. 








01554 


626031456006 


BCD 


2S IN 60* 








01555 


003360606060 












01556 


466004050704 


BCD 


10 4574 








01557 


040507053360 


8CD 


14575. 








01560 


+000246000134 


OCT 


000246000134 


SECTION 


PRE 6 - 


FT 92 


01561 


606231712560 


BCD 


4 SIZE TABLE 








01562 


632122432560 












01563 


606060606060 












01564 


606060606060 












01565 


516444600233 


BCD 


1RUM 2* 








01566 


600203043360 


BCD 


1 234* 








01567 


626031456002 


BCD 


2S IN 237* 








01570 


030733606060 












01571 


466001030500 


BCD 


10 1350 








01572 


010305013360 


BCD 


11351. 








01573 


+000442000140 


OCT 


000442000140 


SECTION 


VI - FT 


96 


01574 


606231712560 


BCD 


4 SIZE TABLE 








01575 


632122432560 












01576 


606060606060 












01577 


606060606060 












01600 


516444600233 


BCD 


1RUM 2. 








01601 


600403003360 


BCD 


1 430* 








01602 


626031456004 


BCD 


2S IN 433* 








01603 


030333606060 












01604 


466003060660 


BCD 


10 366 








01605 


030602336060 


BCD 


1362* 








01606 


+000500000140 


OCT 


000500000140 


SECTION 


VI - FT 


96 


01607 


602550643163 


BCD 


4 EQUIT TABLE 








01610 


606321224325 












01611 


606060606060 













BLOCK 4 



?3 



# 



u 



u 



i ) 



ttt L 



016,12 606060606060 

01613 516444600133 

01614 600406063360 

01615 626031456004 

01616 Q70133606060 

01617 466003070060 

01620 030602336060 

01621 -1-000230000145 

01622 602646516264 

01623 226063212243 

01624 256060606060 

01625 606060606060 

01626 516444600333 

01627 600201053360 

01630 626031456002 

01631 010733606060 

01632 466007000460 

01633 030702336060 

01634 4-000222000151 

01635 602646516264 

01636 226063212243 

01637 256060606060 

01640 606060606060 

01641 516444600333 

01642 600201003360 

01643 626031456002 

01644 010233606060 

01645 466007020360 

01646 050506336060 

01647 +000222000163 

01650 606351214562 

01651 262551606525 

01652 236346516063 

01653 212243256060 

01654 516444600333 

01655 600201003360 

01656 626031456002 

01657 010233606060 

01660 466003020006 

01661 010005043360 

01662 +000140000070 

01663 602330276321 

01664 276063212243 

01665 256060606060 

01666 606060606060 

01667 516444600333 

01670 600102073360 

01671 626031456002 

01672 010700336060 

01673 466005070307 

01674 050704003360 

01675 +000305000070 

01676 606267246367 

01677 606321224325 



BCD 1RUM 1. 
BCD 1 466* 
BCD 2S IN 471* 

BCD 10 370 

BCD 1362. 

OCT 000230000145 

BCD 4 FORSUB TABLE 



BCD 1RUM 3* 
BCD 1 215. 
BCD 25 IN 217. 

BCD 10 704 

BCD 1372. 

OCT 000222000151 

BCD 4 FORSUB TABLE 



SECTION VI - FT 101 L 64 



SECTION VI - FT 105 L 66 



BCD 1RUM 3. 
BCD 1 210. 
BCD 2S IN 212. 

BCD 10 723 

BCD 1556. 

OCT 000222000163 SECTION VI 

BCD 4 TRANSFER VECTOR TABLE 



BCD 1RUM 3. 
BCD 1 210. 
BCD 2S IN 212. 



- FT 115 L 73 



BCD 10 3206 

BCD 11054* 

OCT 000140000070 

BCD 4 CHGTAG TABLE 



BCD 1RUM 3. 

BCD 1 127. 

BCD 2S IN 2170. 

BCD 10 5737 

BCD 15740. 

OCT 000305000070 

BCD 4 SXDTX TABLE 



SECTION III - FT 56 



SECTION III - FT 56 



7/ 



01700 

01701 

01702 

01703 

01704 

01705 

01706 

01707 

01710 

01711 

01712 

01713 

01714 

01715 

01716 

01717 

01720 

01721 

01722 

01723 

01724 

01725 

01726 

01727 

01730 

01731 

01732 

01733 

01734 

01735 

01736 

01737 

01740 

01741 

01742 

01743 

01744 

01745 

01746 

01747 

01750 

01751 

01752 

01753 

01754 

01755 

01756 

01757 

01760 

01761 

01762 

01763 

01764 

01765 



606060606060 

606060606060 

516444600133 

600207043360 

626031456002 

020103336060 

466005070307 

050704003360 

606060606060 

606060606060 

233025234260 

626444602551 

514651603145 

605125212431 

452760633025 

606646512460 

234664456360 

462660633025 

606351214562 

262551606525 

236346516063 

212243256060 

606060606060 

606060606060 

606060606060 

606060606060 

606060606060 

606060606060 

606060606060 

606060606060 

265146446024 

516444600333 

606023464770 

604346464760 

222527314562 

602163604346 

232163314645 

600102033360 

606263215163 

314527602451 

644460212424 

512562626031 

626031456001 

020304336060 

606060606060 

606060606060 

606060606060 

606060606060 

606060606060 

606060606060 

664651246023 

466445636030 

216260222525 

456023464731 



PR 



BCD 1RUM 1« 
.BCD 1 274. 
BCD 2$ IN 2213* 

BCD 10 5737 
BCD 15740. 
BCD 2 

BCD 8CHECK SUM ERROR IN READING THE WORD COUNT OF THE 



PR1FOR BCD 4 TRANSFER VECTOR TABLE 



BCD 8 



BCD 1FROM D 
PR2 BCD 1RUM 3. 

BCD 5 COPY LOOP BEGINS AT LOCATION 



PR3 BCD 1 123. 

BCD 4 STARTING DRUM ADDRESS I 



PR4TW0 BCD 8S IN 1234. 



BCD 5WORD COUNT HAS BEEN COPIED INT 



trt 



U 



U 



'« L 



01766 252460314563 

01767 006001020304 PR5 

01770 602145246031 

01771 636260233025 

01772 234260626444 

01773 603145634660 

01774 010203043360 PR6 

01775 606060606060 

01776 606060606060 

01777 606060606060 

02000 606060606060 

02001 606060606060 

02002 606060606060 

02003 606060606060 

02004 606060606060 

02005 606060606060 

02006 263165256021 

02007 636325444763 

02010 626030216525 

02011 602225254560 

02012 442124256063 

02013 466051252124 

02014 606330316260 

02015 254563517060 

02016 234651512523 

02017 634370336060 
02020 00000 00000 X 

00000 END 



BCD 10 1234 

BCD 4 AND ITS CHECK SUM INTO 



BCD 1234* 



BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS ENTRY CORRECTLY. 



1 ORG 40 - 

1 00050 

00050 01303 01714 

01303 

TD 01303 3 00000 00050 



01304 07400 4 00740 

01305 01244 01237 
©1306 -0 53400 1 01232 
01307 50000 1 01452 D 

01310 40200 01235 

01311 10000 01427 

01312 1 T7767 1 01313 

01313 3 77646 1 01307 C 

01314 07400 4 00740 

01315 01427 01317 

01316 00000 01451 

01317 606060606060 ER 

01320 606060606060 

01321 434623216331 

01322 464560462660 

01323 255151465173 

01324 606630312330 

01325 603021626022 

01326 252545604751 

01327 314563252473 

01330 603021626023 

01331 216462252460 

01332 243121274546 

01333 626331236051 

01334 252346512460 

01335 456444222551 

01336 600400606060 

01337 606060606060 

01340 606060606060 

01341 606060606060 

01342 606060606060 

01343 606060606060 

01344 606060606060 

01345 634660222560 

01346 512521246031 

01347 453360633031 

01350 626051252346 

01351 512460234644 

01352 472151256260 

01353 633025604346 



FORCE NEW RECORD 
ORG 40 

HTR X-l»0tL0CREC 
ORG LOCREC 
TXH 40 

40 

40 

40 

40 

40 

40 

40 

40 

40 
TSX PRINT»4 
HTR MACHlN»0#MACHIN+5 
LXD ZEROtl 
CLA A»l 
SUB ERWORD 
TZE B 

TXI C»l»-9 
TXH D»l»-9»10 
TSX PRINTt4 
HTR ER#0»ER+72 
HTR E 
BCD 2 



FORCE NEW RECORD 
CARD FOR DE 



4666 

6357 

7027 

6762 

1141 

216 

161 

334 

107 

627 



FT 51 

FT 29 

FT 36 

FT 43 

FT 45 

FT 47 

FT 56 

FT 56 

FT 58 

FT 60 



BCD LOCATION OF ERRORt WHICH HAS BEEN PRlNTEDt HAS CAUSED DIAGNO 



BCD STIC RECORD NUMBER 40 



BCD TO BE READ IN. THIS RECORD COMPARES THE LOCATION TO A LIST 



•>7 



r\ r> T 



u 



u 



JV L 



n 



01354 


232163314645 


01355 


606346602160 


01356 


433162636046 


01357 


266001006047 


01360 


466262312243 


01361 


256024516444 


01362 


605*125212460 


01363 


262131436451 


01364 


256273602264 


01365 


636063302560 


01366 


622521512330 


01367 


606060606060 


01370 


606060606060 


01371 


302162602621 


01372 


314325243360 


01373 


606330256025 


01374 


515146516260 


01375 


215125604331 


01376 


626325246031 


01377 


456001040502 


01400 


736001040502 


01401 


604743646260 


01402 


116025632333 


01403 


606047512562 


01404 


626062632151 


01405 


636031266070 


01406 


466460663162 


01407 


306063466060 


01410 


606060606060 


01411 


606060606060 


01412 


606060606060 


01413 


606060606060 


01414 


606060606060 


01415 


256263465125 


01416 


604421233031 


01417 


452560634660 


01420 


626321632560 


01421 


314560663031 


01422 


233060255151 


01423 


465160462323 


01424 


645151252433 


01425 


606060606060 


01426 


606060606060 


01427 


50000 1 01453 B 


01430 


60100 01615 


01431 


50000 1 01454 


01432 


60100 01616 


01433 


50000 1 01455 


01434 


60100 01621 


01435 


50000 1 01456 


01436 


60100 01636 


01437 


50000 1 01457 


01440 


60100 01637 


01441 


50000 1 01460 



BCD F 10 POSSIBLE DRUM READ FAILURES* BUT THE SEARCH 



BCD HAS FAILED. THE ERRORS ARE LISTED IN 1452* 1452 PLUS 9 ETC. 



BCD PRESS START IF YOU WISH TO 



BCD RESTORE MACHINE TO STATE IN WHICH ERROR OCCURRED. 



CLA 


AlTWOtl 


STO 


PR 1 TWO 


CLA 


A1TW0+1»1 


STO 


PR1TW0+1 


CLA 


A2*l 


STO 


PR2 


CLA 


A3TWO*l 


STO 


PR3TWO 


CLA 


A3TWO+l*l 


STO 


PR3TW0+1 


CLA 


A4TW0tl 



a 



01442 


60100 01644 


STO 


PR4TW0 


01443 


50000 1 01461 


CLA 


A4TW0+1»1 


01444 


60100 01645 


STO 


PR4TW0+1 


01445 


50000 1 01462 


CLA 


A5»l 


01446 


60100 01662 


STO 


PR 5 


01447 


07400 4 00740 


TSX 


PRINT#4 


01450 


01715 01604 


HTR 


PR»0»PR+73 


01451 


02000 00221 E 


TRA 


DIGRTN 


0ft52 


4004666000000 A 


OCT 


004666000000 


01453 


602631672346 A1TW0 


BCD 


2 FIXCON TABL 


01454 


456063212243 






01455 


023360606060 A2 


BCD 


12. 


01456 


633146456004 A3TW0 


BCD 


2TION 4605* 


01457 


060005336060 






01460 


603145600502 A4TW0 


BCD 


2 IN 5214* 


01461 


010433606060 






01462 


266001606646 A5 


BCD 


IF 1 WO 


01463 


4001141000000 


OCT 


001141000000 


01464 


602631672346 


BCD 


2 FIXCON TABL 


01465 


456063212243 






01466 


023360606060 


BCD 


12* 


01467 


633146456001 


BCD 


2TION 1060* 


01470 


000600336060 






01471 


603145600104 


BCD 


2 IN 1401 


01472 


000160606060 






01473 


266001606646 


BCD 


IF 1 WO 


01474 


+000627000000 


OCT 


000627000000 


01475 


602631672346 


BCD 


2 FIXCON TABL 


01476 


456063212243 






01477 


023360606060 


BCD 


12* 


01500 


633146456006 


BCD 


2TION 610* 


01501 


010033606060 






01502 


603145600101 


BCD 


2 IN 1143* 


01503 


040333606060 






01504 


266001606646 


BCD 


IF 1 WO 


01505 


4000161000000 


OCT 


000161000000 


01506 


602330276321 


BCD 


2 CHGTAG TABL 


01507 


276063212243 






01510 


033360606060 


BCD 


13* 


01511 


633146456001 


BCD 


2TI0N 141. 


01512 


040133606060 






01513 


603145600201 


BCD 


2 IN 2172* 


01514 


070233606060 






01515 


266002606646 


BCD 


IF 2 WO 


01516 


+007027000000 


OCT 


007027000000 


01517 


602646516521 


BCD 


2 FORVAL TABL 


01520 


436063212243 






01521 


023360606060 


BCD 


12. 


01522 


633146456006 


BCD 


2TI0N 6776. 


01523 


070706336060 






01524 


603145600607 


BCD 


2 IN 6706* 


01525 


000633606060 






01526 


266002606646 


BCD 


IF 2 WO 


01527 


+006762000000 


OCT 


006762000000 



SECTION II - BLOCK 5 



SECTION II - BLOCK 4 



SECTION III - FT60 



SECTION III - FT56 



SECTION II - BLOCK 3 



SECTION II - BLOCK 3-C 



V 



U 



U 



)b I 



01530 606362672346 

01531 446063212243 

01532 033360606060 

01533 633146456006 

01534 070203336060 

01535 603145600607 

01536 010633606060 

01537 266002606646 

01540 +006357000000 

01541 602646516521 

01542 436063212243 

01543 023360606060 

01544 633146456006 

01545 020101336060 

01546 603145600603 

01547 060233606060 

01550 266002606646 

01551 +000107000000 

01552 606351216263 

01553 466063212243 

01554 033360606060 

01555 633146456005 

01556 063360606060 

01557 603145600203 

01560 030633606060 

01561 266003606646 

01562 +000334000000 

01563 606062672463 

01564 676063212243 

01565 013360606060 

01566 633146456003 

01567 000633606060 

01570 603145600202 

01571 010433606060 

01572 266002606646 

01573 +000216000000 

01574 606021246321 

01575 276063212243 

01576 033360606060 

01577 633146456001 

01600 050033606060 

01601 603145600201 

01602 073360606060 

01603 266004606646 

01604 606060606060 

01605 606060606060 

01606 233025234260 

01607 626444602551 

01610 514651603145 

01611 605125212431 

01612 452760214560 

01613 254563517060 

01614 462660633025 

01615 602631672346 



PR 



BCD 2 TSXCOM TABL 

BCD 13* 

BCD 2TION 6723* 

BCD 2 IN 6716* 

BCD IF 2 WO 

OCT 006357000000 

BCD 2 FORVAL TABL 

BCD 12* 

BCD 2TI0N 6211* 

BCD 2 IN 6362* 

BCD IF 2 WO 

OCT 000107000000 

BCD 2 TRASTO TABL 

BCD 13* 

BCD 2TI0N 56. 

BCD 2 IN 2336* 

BCD IF 3 WO 

OCT 000334000000 

BCD 2 SXDTX TABL 

BCD 11* 

BCD 2TI0N 306* 

BCD 2 IN 2214* 

BCD IF 2 WO 

OCT 000216000000 

BCD 2 ADTA6 TABL 

BCD 13. 

BCD 2TI0N 150. 

BCD 2 IN 217. 

BCD IF 4 WO 
BCD 2 



SECTION II - BL0CK2 - STATE B 



SECTION III - FT 58 



SECTION III 



SECTION II - BLOCK 5 



BCD 7CHECK SUM ERROR IN READING AN ENTRY OF THE 



PR1TW0 BCD 2 FIXCON TABL 



■ rA 



01616 
01617 
01620 
01621 
01622 
01623 
01624 
01625 
01626 
01627 
01630 
01631 
01632 
01633 
01634 
01635 
01636 
01637 
01640 
01641 
01642 
01643 
01644 
01645 
01646 
01647 
01650 
01651 
01652 
01653 
01654 
01655 
01656 
01657 
01660 
01661 
01662 
01663 
01664 
01665 
01666 
01667 
01670 
01671 
01672 
01673 
01674 
01675 
01676 
01677 
01700 
01701 
01702 
01703 



456063212243 
256026514644 
602451644460 
023360606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
234647706043 
464647602225 
273145626021 
636043462321 
633146456001 
020304336060 
626321516331 
452760245164 
446021242451 
256262603162 
603145600102 
030433606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
633031626063 
212243256031 
626023464447 
466225246046 
266001606646 
512460254563 
513125626021 
452460216023 
302523426062 
644460264651 
602521233060 
254563517033 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
263165256021 
636325444763 



BCD 2E FROM DRUM 
PR2 BCD 92* 



BCD 4C0PY LOOP BEGINS AT LOCA 

PR3TW0 BCD 2T10N 1234# 

BCD 4START1N6 DRUM ADDRESS IS 

PR4TW0 BCD 2 IN 1234* 
BCD 8 



PR5 



BCD 4THIS TABLE IS COMPOSED 



BCD IF 1 WO 

BCD RD ENTRIES AND A CHECK SUM FOR EACH ENTRY, 



BCD 5 



BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THE ENTIRE TABLE CORREC 



o 



u 



UB L 



01704 


626030216525 




01705 


602225254560 




01706 


442124256063 




01707 


466051252124 




01710 


606330256025 




01711 


456331512560 




01712 


632122432560 




01713 


234651512523 




01714 


634370336060 


BCD 1TLY. 


01715 


00000 00000 X 






00000 


END 



ORG 41 
00051 01303 



TO 



01303 
01304 
01305 
01306 
01307 
01310 
01311 
01312 
01313 
01314 
01315 
01316 
01317 
01320 
01321 
01322 
01323 
01324 
01325 
01326 
01327 
01330 
01331 
01332 
01333 
01334 
01335 
01336 
01337 
01340 
01341 
01342 
01343 
01344 
01345 
01346 
01347 
01350 
01351 
01352 
01353 
01354 
01355 
01356 
01357 
01360 
01361 
01362 
01363 
01364 



00000 
07400 
01244 



-0 53400 



00001 

50000 

60100 

50000 

60100 

50000 

60100 

50000 

60100 

50000 

60100 

07400 

01437 

02000 
606060606060 
606060606060 
233025234260 
626444602551 
514651603145 
605125212431 
452760245164 
446001336060 
633025606263 
216325602260 
234624314527 
606462252460 
227060622523 
633146456031 
317360224346 
234260027360 
302162602225 
254560606060 
606060606060 
606060606060 
606060606060 
606060606060 
512521246031 
456346604346 
232163314645 
626005050606 
606330514664 
273060060506 
053360606330 
256023464447 
646325246023 
302523426062 



00051 
01443 
01303 
00051 
00740 
01237 
00000 
01322 
01437 
01336 
01440 
01400 
01441 
01403 
01442 
01411 
01443 
01416 
00740 
01325 
00221 



PRIN 



PR 



PR1 



FORCE NEW RECORD 
CARD FOR DE 

5560 FT 34 



IR 2EOUALS 2 FOR STATE Bt BCD IS SET UP 



FORCE NEW RECORD 
ORG 41 

KTR X-l#0»LOCREC 
ORG LOCREC 
TXH 41 
TSX PRINT«4 
HTR MACHlN»0«MACHIN+5 
LXD 0«2 
TXH PRINt2»l 
CLA Al 
STO PR1 
CLA A2 
STO PR 2 
CLA A3 
STO PR3 
CLA A4 
STO PR4 
CLA A5 
STO PR 5 
TSX PRINT#4 
HTR PR*0«PR+74 
TRA DIGRTN 
BCD 2 

BCD 7CHECK SUM ERROR IN READING DRUM 1« THE ST 



BCD 1ATE B 

BCD CODING USED BY SECTION I-I • BLOCK 2» HAS BEEN 



BCD 2 

BCD READ INTO LOCATIONS 5566 THROUGH 6565. THE COMPUTED CHECK S 



,->5 



u 



u 



00 L 



01365 644473604346 

01366 232163314645 

01367 600505060173 

01370 603162602346 

01371 444721512524 

01372 606346606330 

01373 256047255144 

01374 214525456360 

01375 606060606060 

01376 606060606060 

01377 626321632560 

01400 226062644460 PR2 

01401 314560434623 

01402 216331464560 

01403 050506023360 PR3 

01404 602346477060 

01405 434646476022 

01406 252731456260 

01407 216360434623 

01410 216331464560 

01411 050503043360 PR4 

01412 606263215163 
#01413 314527602451 

01414 644460212424 

01415 512562626031 

01416 626001000000 PR5 

01417 336060606060 

01420 606060606060 

01421 606060606060 

01422 606060606060 

01423 263165256021 

01424 636325444763 

01425 626030216525 

01426 602225254560 

01427 442124256063 

01430 466051252124 

01431 606330316260 

01432 224346234260 

01433 462660475146 

01434 275121446023 

01435 465151252363 

01436 437033606060 

01437 216325602160 Al 

01440 216062644460 A2 

01441 050506033360 A3 

01442 050505053360 A4 

01443 626071255146 A5 

01444 00000 00000 X 

ooooo 



BCD UMt LOCATION 5561 # IS COMPARED TO THE PERMANENT 



BCD 1STATE 
BCD 3B SUM 



IN LOCATION 



BCD 65562. COPY LOOP BEGINS AT LOCATION 



BCD 55534* STARTING DRUM ADDRESS I 



BCD 5S 1000* 



BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS BLOCK OF PROGRAM C 



BCD 20RRECTLY* 



BCD 
BCD 
BCD 
BCD 
BCD 

END 



1ATE A 
1A SUM 
15563* 
15555* 
IS ZERO 



,.// 



ORG 42 
00052 01303 



TO 



01303 
01304 
01305 
01306 
01307 
01310 
01311 
01312 
01313 
01314 
01315 
01316 
01317 
01320 
01321 
01322 
01323 
01324 
01325 
01326 
01327 
01330 
01331 
01332 
01333 
01334 
01335 
01336 
01337 
01340 
01341 
01342 
01343 
01344 
01345 
01346 
01347 
01350 
01351 
01352 
01353 
01354 
01355 
01356 
01357 
01360 
01361 
01362 
01363 
01364 



00052 
01471 
01303 
00052 
00740 
01237 
00000 
01322 
01465 
01336 
01466 
01363 
01467 
01424 
01470 
01427 
01471 
01442 
00740 
01325 
00221 



3 00000 
07400 4 
01244 
-0 53400 2 
3 00001 2 

50000 

60100 

50000 

60100 

50000 

60100 

50000 

60100 

50000 

60100 

07400 4 00740 PRIN 

01465 

02000 
606060606060 PR 
606060606060 
233025234260 
626444602551 
514651603145 
605125212431 
452760245164 
446001336060 
633025606263 
216325602260 PR1 
234624314527 
606462252460 
227060622523 
633146456031 
317360224346 
234260027360 
302162604164 
626360606060 
606060606060 
606060606060 
606060606060 
606060606060 
222525456066 
513163632545 
604645606330 
256024516444 
736022252731 
454531452760 
216360434623 
216331464560 
010000003360 PR2 
606346606525 



FORCE 


NEW RECORD 


ORG 


42 


HTR 


X-1»0»L0CREC 


ORG 


LOCREC 


TXH 


42 


TSX 


PRINTt4 


HTR 


MACHINtOfMACHIN+5 


LXD 


Of2 


TXH 


PRIN»2tl 


CLA 


Al 


STO 


PR1 


CLA 


A2 


STO 


PR 2 


CLA 


A3 


STO 


PR 3 


CLA 


A4 


STO 


PR4 


CLA 


A5 


STO 


PR5 


TSX 


PRINT*4 


HTR 


PR»0»PR+96 


TRA 


DIGRTN 


BCD 


2 



FORCE NEW RECORD 
CARD FOR DE 

7760 FT 30 



IR2 EQUALS 2 FOR STATE Bt BCD IS SETUP 



BCD 7CHECK. SUM ERROR IN READING DRUM !• THE ST 



BCD 1ATE B 

BCD CODING USED BY SECTION II t BLOCK 2» HAS JUST 



BCD 2 

BCD 8BEEN WRITTEN ON THE DRUM* BEGINNING AT LOCATION 



BCD 11000* 

BCD TO VERIFY THAT THIS HAS BEEN DONE CORRECTLY. 



/ 



u 



o 



. L 



n 



01365 


513126706063 


01366 


302163606330 


01367 


316260302162 


01370 


602225254560 


01371 


244645256023 


01372 


465151252363 


01373 


437073606060 


01374 


606060606060 


01375 


606060606060 


01376 


606060606060 


01377 


316360316260 


01400 


512521246022 


01401 


212342603145 


01402 


634660040506 


01403 


066063305146 


01404 


642730600505 


01405 


060533606063 


01406 


302560234644 


01407 


476463252460 


01410 


233025234260 


01411 


626444736043 


01412 


462321633146 


01413 


456007070703 


01414 


736031626023 


01415 


464447215125 


01416 


246063466021 


01417 


604725514421 


01420 


452545636060 


01421 


606060606060 


01422 


606060606060 


01423 


626321632560 


01424 


226062644460 


01425 


314560434623 


01426 


216331464560 


01427 


070706033360 


01430 


606330256062 


01431 


642251466463 


01432 


314525606630 


01433 


312330606651 


01434 


316325626021 


01435 


452460512521 


01436 


246260633025 


01437 


602451644460 


01440 


222527314562 


01441 


6Q2163600707 


01442 


030033606060 


01443 


606060606060 


01444 


606060606060 


01445 


606060606060 


01446 


606060606060 


01447 


263165256021 


01450 


636325444763 


01451 


626030216525 


01452 


602225254560 



BCD 1 ' 

BCD IT IS READ BACK INTO 4566 THROUGH 5565. THE COMPUTED CHECK 



BCD SUMt LOCATION 7773* IS COMPARED TO A PERMANENT 



PR 3 



PR4 



BCD 1STATE 

BCD 3B SUM IN LOCATION 



BCD 17763* 

BCD THE SUBROUTINE WHICH WRITES AND READS THE DRUM BE6INS AT 77 



PR 5 



BCD 530. 



BCD FIVE ATTEMPTS HAVE BEEN MADE TO WRITE AND READ THIS BLOCK OF 



.,/: 



01453 


442124256063 








01454 


466066513163 








01455 


256021452460 








01456 


512521246063 








01457 


303162602243 








01460 


462342604626 








01461 


604751462751 




BCD 


4 PROGI 


01462 


214460234651 








01463 


^512523634370 








01464 


336060606060 








01465 


216325602160 


Al 


BCD 


1ATE A 


01466 


712551463360 


A2 


BCD 


1ZERO. 


01467 


216062644460 


A3 


BCD 


1A SUM 


01470 


070706043360 


A4 


BCD 


17764. 


01471 


030233606060 


A5 


BCD 


132. 


01472 


00000 00000 
00000 


X 


END 





u 



u 



L L 



} ORG 43 

I 30053 

00053 01303 > 01423 

« 01303 

TO 01303 3 00000 00053 

01304 07400 * 00740 

01305 01244 01237 

01306 50000 01235 

01307 40200 01325 

01310 -0 12000 01317 

01311 50000 01322 

01312 60100 01335 

01313 50000 01323 

01314 60100 0-01336 

01315 50000 01324 

01316 60100 01337 

01317 07400 4 00740 

01320 01424 01326 

01321 02000 00221 

01322 446002336060 

01323 633025602143 

01324 473021606263 

01325 +004007000000 

01326 606060606060 

01327 606060606060 

01330 233025234260 

01331 626444602551 

01332 514651603145 

01333 605125212431 

01334 452760245164 

01335 446001336060 

01336 633025606022 

01337 256321606263 

01340 216325602346 

01341 243145276064 

01342 622524602270 

01343 606225236331 

01344 464560313173 

01345 602243462342 

01346 600573603021 

01347 626022252545 

01350 605125212460 

01351 606060606060 

01352 606060606060 

01353 606060606060 

01354 314563466006 

01355 020206606330 

01356 514664273060 

01357 070202057360 

01360 626321516331 

01361 452760265146 

01362 446024516444 

01363 602124245125 



PRIN 



Al 

A2 

A3 

ALPHA 

PR 



FORCE NEW RECORO 
ORG 43 

HTR X-l»0fLOCREC 
ORG UOCREC 
TXH 43 
43 
TSX PRINT»4 
HTR MACHIN»0» MACHIN+ 5 
CLA ERWORD 
SUB ALPHA 
TMI PRIN 
CLA Al 
STO PR1 
CLA A2 
STO PR2 
CLA A3 
STO PR3 
TSX PRINT>4 
HTR PR»0»PR+62 
TRA D1GRTN 
BCD 1M 2. 
BCD 1THE AL 
BCD 1PHA ST 
OCT 004007000000 
BCD 2 



FORCE NEW RECORD 
CARD FOR DE 



4006 
4007 



FT 

FT 



51 

51 



4007 IF ALPHA STATE» BCD NOT SET UP 
FOR ALPHA 



PR1 
PR 2 
PR3 



BCD 5CHECK SUM ERROR IN READING DRU 



BCD 1M !• 

BCD 1THE B „ A _ 

BCD ETA STATE CODING USED BY SECTION II* BLOCK 5* HAS BEEN READ 



BCD 3 



BCD INTO 6226 THROUGH 7225» STARTING FROM DRUM ADDRESS 1751. TH 



01364 


626260010705 


01365 


013360606330 


01366 


256024516444 


01367 


602330252342 


01370 


606264446031 


01371 


626031456005 


01372 


020002336060 


01373 


606060606060 


01374 


606060606G60 


01375 


606060606060 


01376 


606060606060 


01377 


606060606060 


01400 


633025602346 


01401 


444764632524 


01402 


602330252342 


01403 


606264446031 


01404 


626031456005 


01405 


020003336060 


01406 


263165256021 


01407 


636325444763 


01410 


626030216525 


01411 


602225254560 


01412 


442124256063 


01413 


466051252124 


01414 


606330316260 


01415 


224346234260 


01416 


462660475146 


01417 


275121446023 


01420 


465151252363 


01421 


437060606060 


01422 


606060606060 


01423 


606060606060 


01424 


00000 00000 X 




00000 



BCD E DRUM CHECK SUM IS IN 5202. 



BCD THE COMPUTED CHECK SUM IS IN 5203. FIVE ATTEMPTS HAVE BEEN 



BCD MADE TO READ THIS BLOCK OF PROGRAM CORRECTLY 



END 



u 



,/l 



u 



', L 



1 

1 




ORG 44 


00054 




00054 


01303 


01441 
01303 


TD 


01303 


3 00000 


00054 




01304 


07400 


4 00740 




01305 


01237 


01237 




01306 


50000 


06762 




01307 


77100 


00022 




01310 


-0 32000 


01227 




01311 


60100 


01257 




01312 


50000 


01415 




01313 


40200 


01257 




01514 


07400 


4 00730 




01315 


60200 


01415 




01316 


-0 50000 


01414 




01317 


56000 


01415 




01320 


77100 


00022 




01321 


-0 76300 


00022 




01322 


60200 


01414 




01323 


-0 76300 


00022 




01324 


56000 


00717 




01325 


-0 76300 


00022 




01326 


60200 


01415 




01327 


07400 


4 00740 




01330 


01442 


01332 




01331 


02000 


00221 




01332 


606060606060 




01333 


606060606060 




01334 


233025234260 




01335 


626444602551 




01336 


514651603145 




01337 


605125212431 




01340 


452760452144 




01341 


256063212243 




01342 


256026514644 




01343 


602451644460 




01344 


033360606060 




01345 


606060606060 




01346 


606060606060 




01347 


606060606060 




01350 


606060606060 




01351 


606060606060 




01352 


606060606060 




01353 


606060606060 




01354 


606060606060 




01355 


606060606060 




01356 


606060606060 




01357 


606060606060 




01360 


234647706043 




01361 


464647602225 




01362 


273145626021 




01363 


636043462321 




01364 


633146456006 



PR 



FORCE NEW RECORD 
CARO FOR OE 

6765 FT 36 



OCTAL 6762 - DEC HAS CONTENTS IR1 



-FORCE NEW RECORD 
ORG 44 

HTR X-1»0*L0CREC 
ORG LOCREC 
TXH 44 
TSX PRINT«4 
HTR MACHIN»0#MACHIN 
CLA 3570 
ARS 18 
ANA ADDMSK 
STO ERAS 
CLA PR1 
SUB ERAS 
TSX 0CTBCD»4 
SLW PR1 
CAL PR 1-1 
LDQ PR1 
ARS 18 
LGL 18 
SLW PR 1-1 
LGL 18 
LDQ BLANKS 
•LGL 18 
SLW PR1 
TSX PRINT»4 
HTR PR»0#PR+72 
TRA DIGRTN 
BCD 2 

BCD CHECK SUM ERROR IN READING NAME TABLE FROM DRUM 3# 



BCD 



BCD COPY LOOP BEGINS AT LOCATION 6731. STARTING DRUM ADDRESS IS 



01365 


070301336060 




01366 


626321516331 




01367 


452760245164 




01370 


446021242451 




01371 


256262603162 




01372 


603145600607 


BCD IN 6707* 


01373 


000733606060 




01374 


606060606060 




01375 


606060606060 




01376 


606060606060 




01377 


606060606060 




01400 


606060606060 




01401 


606060606060 




01402 


606060606060 




01403 


606060606060 


* 


01404 


234644476463 


BCD 9C0MPUTED CH 


01405 


252460233025 




01406 


234260626444 




01407 


603162603145 




01410 


600607070133 




01411 


602451644460 




01412 


233025234260 




01413 


626444603162 




01414 


603145606060 




01415 


+000000006771 PR1 


OCT 000000006771 


01416 


606060606060 


BCD 


01417 


606060606060 




01420 


606060606060 




01421 


606060606060 




01422 


606060606060 




01423 


606060606060 




01424 


606060606060 




01425 


60606Q606060 




01426 


606060606060 




01427 


606060606060 




01430 


263165256021 


BCD FIVE ATTEMP 


01431 


636325444763 




01432 


626030216525 




01433 


602225254560 




01434 


442124256063 




01435 


466051252124 




01436 


606330316260 




01437 


632122432560 




01440 


234651512523 




01441 


634370336060 




01442 


00000 ooooo x 






00000 


END 



BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS TABLE CORRECTLY. 



u 



u 



L L 



1 


.» 


ORG 45 


1 




00055 




00055 


01303 01447 
01303 


TO 


01303 


3 00000 00055 




01304 


07400 4 00740 




01305 


01244 01237 




01306 


07400 4 00740 




0130? 


01450 01311 




01310 


02000 00221 




01311 


606060606060 




01312 


606060606060 




01313 


233025234260 




01314 


626444602551 




01315 


514651603145 




01316 


605125212431 




01317 


452760632122 




01320 


432560315165 




01321 


602651464460 




01322 


245164446003 




01323 


336060253163 




01324 


302551606330 




01325 


256066465124 




01326 


602346644563 




01327 


736043462321 




01330 


633146456001 




01331 


000007736060 




01332 


606060606060 




01333 


606060606060 




01334 


606060606060 




01335 


606060606060 




01336 


606060606060 




01337 


244625626045 




01340 


466360212751 




01341 


252560663163 




01342 


306031636260 




01343 


466645602330 




01344 


252342606264 




01345 


447360434623 




01346 


216331464560 




01347 


010001007360 




01350 


465160633025 




01351 


602346444764 




01352 


632524602330 




01353 


252342606264 




01354 


446046266063 




01355 


302560632122 




01356 


432573606060 




01357 


606060606060 




01360 


606060606060 




01361 


606060606060 




01362 


606060606060 




01363 


434623216331 




01364 


464560010001 



FORCE NEW RECORD 
CARD FOR DE 

1006 FT 45 



PR 



FORCE NEW RECORD 
0R6 45 

HTR X-l#OfLOCREC 
ORG LOCREC 
TXH 45 
TSX PRINT»4 
HTR MACHINtOtMACHIN+5 
TSX PRINT»4 
HTR PR»0#PR+95 
TRA DIGRTN 
BCD 2 

BCD CHECK SUM ERROR IN READING TABLE IRV FROM DRUM 3» EITHER TH 



BCD E WORD COUNT* LOCATION 1007 » 



BCD DOES NOT AGREE WITH ITS OWN CHECK SUM» LOCATION 1010* OR THE 



BCD COMPUTED CHECK SUM OF THE TABLE* 



BCD LOCATION 1011» DOES NOT AGREE WITH THE DRUM CHECK SUM. THE 



/ 



01365 


017360244625 


01366 


626045466360 


01367 


212751252560 


01370 


663163306063 


01371 


302560245164 


01372 


446023302523 


01373 


426062644433 


01374 


606063302560 


01375 


245164446023 


01376 


302523426062 


01377 


644460302162 


01400 


602225254560 


01401 


234647312524 


01402 


606060606060 


01403 


606060606060 


01404 


606060606060 


01405 


606060606060 


01406 


606060606060 


01407 


314563466043 


01410 


462321633146 


01411 


456060740403 


01412 


056047436462 


01413 


606646512460 


01414 


234664456334 


01415 


336060234647 


01416 


706043464647 


01417 


602225273145 


01420 


626021636043 


01421 


462321633146 


01422 


456007050233 


01423 


606062632151 


01424 


633145276024 


01425 


516444602124 


01426 


245125626260 


01427 


316260010300 


01430 


043360606060 


01431 


606060606060 


01432 


606060606060 


01433 


263165256021 


01434 


636325444763 


01435 


626030216525 


01436 


602225254560 


01437 


442124256063 


01440 


466051252124 


01441 


606330256066 


01442 


465124602346 


01443 


644563602145 


01444 


246063302560 


01445 


632122432560 


01446 


234651512523 


01447 


634370336060 


01450 


00000 00000 




00000 



BCD DRUM CHECK SUM HAS BEEN COPIED 



BCD INTO LOCATION (435 PLUS WORD COUNT U COPY LOOP BEGINS AT L 



BCD OCATION 752* STARTING DRUM ADDRESS IS 1304. 



BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THE WORD COUNT AND THE 



BCD 3TABLE CORRECTLY. 



END 



'J 



u 



u 



'_ L 



1 




ORG 46 






FORCE 


NEW RECORD 


1 








00056 


ORG 


46 




00056 


01303 





01447 
01303 


HTR 
ORG 


X-ltOtLOCREC 
LOCREC 


TD 


01303 


3 00000 





00056 


TXH 


46 




01304 


07400 


4 


00740 


TSX 


PRINT»4 ■* 




01305 


01244 





01237 


HTR 


MACHlN»0»MACHIN+5 




01306 


76200 





00304 


RDR 


4 




01307 


46000 





01337 


LOA 


A 




01310 


70000 





01257 


CPY 


ERAS 




01311 


50000 





01257 


CLA 


ERAS 




01312 


-0 32000 





01230 


ANA 


DECMSK 




01313 


40200 





01234 


SUB 


PREFX1 




01314 


77100 





00022 


ARS 


18 




01315 


60000 





01257 


STZ 


ERAS 




01316 


62100 





01257 


STA 


ERAS 




01317 


50000 





01423 


CLA 


PR1 




01320 


40200 





01257 


SUB 


ERAS 




01321 


07400 


4 


00730 


TSX 


0CTBCD»4 




01322 


60200 





01423 


SLW 


PR1 




01323 


-0 50000 





01422 


CAL 


PR1-1 




01324 


56000 





01423 


LDQ 


PR1 




01325 


77100 





00014 


ARS 


12 




01326 


-0 76300 





00014 


LGL 


12 




01327 


60200 





01422 


SLW 


PR1-1 




01330 


-0 76300 





00030 


LGL 


24 




01331 


56000 





00717 


LDQ 


BLANKS 




01332 


-0 76300 





00014 


LGL 


12 




01333 


60200 





01423 


SLW 


PR1 




01334 


07400 


4 


00740 


TSX 


PRINT«4 




01335 


01450 





01340 


HTR 


PRt0»PR+72 




01336 


02000 





00221 


TRA 


DIGRTN 




01337 


00000 





01227 A 


HTR81227 




01340 


606060606060 PR 


BCO 


2 




013*1 


606060606060 








01342 


233025234260 


BCD 


CHECK SUM ERROR 




01343 


626444602551 








01344 


514651603145 








01345 


605125212431 








01346 


452760636267 








01347 


234644606321 








01350 


224325602651 








01351 


464460245164 








01352 


446003336060 








01353 


606060606060 








01354 


606060606060 


BCD 






01355 


606060606060 








01356 


606060606060 








01357 


606060606060 








01360 


606060606060 








01361 


606060606060 








01362 


606060606060 








01363 


606060606060 








01364 


606060606060 







FORCE NEW RECORD 
CARD FOR DE 

72 FT 60 



IR1 IN DEC-WILL SHOW WHERE CHECK SUM IS 
UNCOMPLIMENT 



01365 606060606060 

01366 234647706043 

01367 464647602225 

01370 273145626021 

01371 636043462321 

01372 633146456004 

01373 023360606263 

01374 215163314527 

01375 602451644460 

01376 212424512562 

01377 626031626031 

01400 456001010500 

01401 336060606060 

01402 606060606060 

01403 606060606060 

01404 606060606060 

01405 606060606060 

01406 606060606060 

01407 606060606060 

01410 606060606060 

01411 606060606060 

01412 234644476463 

01413 252460233025 

01414 234260626444 

01415 603162603145 

01416 600102020633 

01417 606024516444 

01420 602330252342 

01421 606264446031 

01422 626031456060 

01423 +000000001230 

01424 606060606060 

01425 606060606060 

01426 606060606060 

01427 606060606060 

01430 606060606060 

01431 606060606060 

01432 606060606060 

01433 606060606060 

01434 6Q6060606060 

01435 606060606060 

01436 263165256021 

01437 636325444763 

01440 626030216525 

01441 602225254560 

01442 442124256063 

01443 466051252124 

01444 606330316260 

01445 632122432560 

01446 234651512523 

01447 634370336060 
01450 00000 00000 

00000 



BCD COPY LOOP BEGINS AT LOCATION 42» STARTING DRUM ADDRESS IS I 



BCD N 1150* 



BCD 9C0MPUTED CHECK SUM IS IN 1226. DRUM CHECK SUM IS IN 



PR1 



OCT 000000001230 
BCD 



BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS TABLE CORRECTLY. 



END 



/ 



/ 



u 



u 



BZ. L 



1 




ORG 47 


1 




00057 




00057 


01303 01470 
01303 


TO 


01303 


3 00000 00057 




01304 


07400 4 00740 




01305 


01244 01237 




01306 


07400 4 00740 




01307 


01471 01311 




01310 


02000 00221 




01311 


606060606060 




01312 


606060606060 




01313 


233025234260 




01314 


626444602551 




01315 


514651603145 




01316 


605125212431 




01317 


452760244623 




01320 


215125606321 




01321 


224325602651 




01322 


464460245164 




01323 


446001336060 




01324 


633031626063 




01325 


212243256066 




01326 


216260665131 




01327 


636325456021 




01330 


626021600160 




01331 


664651246025 




01332 


456351706021 




01333 


452460216060 




01334 


606060606060 




01335 


606060606060 




01336 


606060606060 




01337 


233025234260 




01340 


626444604626 




01341 


606330216360 




01342 


254563517060 




01343 


222527314545 




01344 


314527602163 




01345 


600260464560 




01346 


633025602451 




01347 


644433606063 




01350 


302560016066 




01351 


465124602545 




01352 


635131256260 




01353 


215125602346 




01354 


473125246022 




01355 


212342662151 




01356 


246260606060 




01357 


606060606060 




01360 


606060606060 




01361 


606060606060 




01362 


606060606060 




01363 


314563466023 




01364 


465125626022 



FORCE NEW RECORD 
CARD FOR DE 

1135 FT 62 



PR 



FORCE NEW RECORD 
ORG 47 

HTR X-1»0»L0CREC 
ORG LOCREC 
TXH 47 
TSX PRINTS 
HTR MACHlN»0»MACHIN+5 
TSX PRINT*4 
HTR PR»0»PR+112 
TRA DIGRTN 
BCD 2 

BCD CHECK SUM ERROR IN READING DOCARE TABLE FROM DRUM 1. THIS T 



BCD ABLE WAS WRITTEN AS A 1 WORD ENTRY AND A 



BCD CHECK SUM OF THAT ENTRY BEGINNING AT 2 ON THE DRUM. THE 1 W 



BCD ORD ENTRIES ARE COPIED BACKWARDS 



BCD INTO CORES BEGINNING 4216. THEIR CHECK SUMS ARE COPIED BACK 



01365 


252731454531 


01366 


452760040201 


01367 


063360606330 


01370 


253151602330 


01371 


252342606264 


01372 


446260215125 


01373 


602346473125 


01374 


246022212342 


01375 


662151246260 


01376 


314563466023 


01377 


465125626022 


01400 


252731454531 


01401 


452760216360 


01402 


040306033360 


01403 


606060606060 


01404 


606060606060 


01405 


606060606060 


01406 


606060606060 


01407 


216043462731 


01410 


232143606264 


01411 


446046266025 


01412 


212330604626 


01413 


606330256051 


01414 


256264436331 


01415 


452760632122 


01416 


432562603162 


01417 


602446452533 


01420 


606023302523 


01421 


426062644460 


01422 


462660633025 


01423 


602545635131 


01424 


256260316260 


01425 


314560010005 


01426 


336060606060 


01427 


606060606060 


01430 


606060606060 


01431 


606060606060 


01432 


606060606060 


01433 


233025234260 


01434 


626444604626 


01435 


606330256023 


01436 


302523426062 


01437 


644462603162 


01440 


603145600100 


01441 


063360606330 


01442 


256023464770 


01443 


604346464760 


01444 


222527314562 


01445 


602163604346 


01446 


232163314645 


01447 


600101000233 


01450 


606060606060 


01451 


606060606060 


01452 


606060606060 



8C0 WARDS INTO CORES BEGINNING AT 4363. 



BCD A LOGICAL SUM OF EACH OF THE RESULTING TABLES IS DONE. CHEC 



BCD K SUM OF THE ENTRIES IS IN 105. 



BCD CHECK SUM OF THE CHECK SUMS IS IN 106. THE COPY LOOP BE6INS 



BCD AT LOCATION 1102. 



u 



u 



01453 606060606060 

01454 606060606060 

01455 606060606060 

01456 606060606060 

01457 263165256021 

01460 636325444763 

01461 626030216525 

01462 602225254560 

01463 442124256063 

01464 466051252124 

01465 606330316260 

01466 512523465124 

01467 602346515125 

01470 236343703360 

01471 00000 00000 X 

00000 



BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY. 



END 



1 ORG 48 

1 00060 

00060 01303 01724 

01303 

TO 01303 3 00000 00060 



01304 07400 4 00740 

01305 01244 01237 

01306 -0 53400 3 01232 

01307 50O00 1 01453 CI 

01310 40200 01235 

01311 10000 01427 

01312 1 77777 1 01313 
©1313 3 77636 1 01307 C 

01314 07400 4 00740 

01315 01427 01317 

01316 00000 01452 

01317 606060606060 ER 

01320 606060606060 

01321 434623216331 

01322 464560462660 

01323 255151465173 

01324 606630312330 

01325 603021626022 

01326 252545604751 

01327 314563252473 

01330 603021626023 

01331 216462252460 

01332 243121274546 

01333 626331236051 

01334 252346512460 

01335 456444222551 

01336 600410606060 

01337 606060606060 

01340 606060606060 

01341 606060606060 

01342 606060606060 

01343 606060606060 

01344 606060606060 

01345 634660222560 

01346 512521246031 

01347 453360606330 
01350 316260512523 
01351' 465124602346 

01352 444721512562 

01353 606330256043 

01354 462321633146 

01355 456063466021 

01356 604331626360 



FORCE NEW RECORD 
ORG 48 

HTR X-l>OtLOCREC 
ORG LOCREC 
TXH,48 

48 

48 

48 

48 

48 

48 
TSX PRINT»4 
HTR MACHlN»0»MACHlN+5 
LXD ZERO #3 
CLA A»l 
SUB ERWORD 
TZE B 
TXI Ctl*-1 
TXH Cl»lt-14*7 
TSX PRINT«4 
HTR ER»0»ER+72 
HTR D 
BCD 2 



FORCE NEW RECORD 
CARD FOR DE 



341 
3143 FT 
103 
160 
263 
64 
256 



FT 67 
64 



FT 67 

FT 67 

FT 67 

FT 71 

FT 73 



BCD LOCATION OF ERROR, WHICH HAS BEEN PRlNTEDt HAS CAUSED DIA6N0 



BCD STIC RECORD NUMBER 48 



BCD TO BE READ IN. THIS RECORD COMPARES THE LOCATION TO A LIST 






u 



u 



&L L 



01357 
01360 
01361 
01362 
'01363 
01364 
01365 
01366 
01367 
01370 
01371 
01372 
01373 
01374 
01375 
01376 
01377 
01400 
01401 
01402 
01403 
01404 
01405 
01406 
01407 
01410 
01411 
01412 
01413 
01414 
01415 
01416 
01417 
01420 
01421 
01422 
01423 
01424 
01425 
01426 
01427 
01430 
01431 
01432 
01433 
01434 
01435 
01436 
01437 
01440 
01441 
01442 
01443 
01444 



462660076047 

466262312243 

256024516444 

605125212460 

262131436451 

256273602264 

636063302560 

622521512330 

606060606060 

606060606060 

302162602621 

314325243360 

606330256025 

515146516260 

215125604331 

626325246031 

456001040701 

736001040701 

604743646260 

010473602563 

233360604751 

256262606263 

215163603126 

607046646066 

316230606346 

606060606060 

606060606060 

606060606060 

606060606060 

606060606060 

512562634651 

256044212330 

314525606346 

606263216325 

603145606630 

312330602551 

514651604623 

236451512524 

336060606060 

606060606060 



BCD OF 7 POSSIBLE DRUM READ FAILURES* BUT THE SEARCH 



50000 
60100 
77777 
77777 
77771 
50000 
60100 
50000 
60100 
50000 
60100 
50000 
60100 
50000 



B 



01454 

01623 

01432 

01433 Bl 

01427 B2 

01454 

01647 

01455 

01650 

01456 

01655 

01457 

01656 

01460 



BCD HAS FAILED. THE ERRORS ARE LISTED IN 1471* 1471 PLUS 14» ET 



BCD C» PRESS START IF YOU WISH TO 



BCD RESTORE MACHINE TO STATE IN WHICH ERROR OCCURRED. 



CLA A+l»l 
STO PR1»2 
TXI Bl»2»-1 
TXI B2»l»-1 
TXH B*2t-7 
CLA A+l»l 
STO PR2TW0 
CLA A+2»l 
STO PR2TW0+1 
CLA A+3»l 
STO PR3TW0 
CLA A+4»l 
STO PR3TW0+1 
CLA A+5»l 



01445 60100 01673 

01446 50000 1 01461 

01447 60100 01700 

01450 07400 4 00740 

01451 01725 01615 

01452 02000 00221 

01453 +000341000000 

01454 452760265125 

01455 636063212243 

01456 256026514644 

01457 602451644460 

01460 023360606060 

01461 606060606060 

01462 606060606060 

01463 633146456003 

01464 000033606060 

01465 603145600500 

01466 336060606060 

01467 600506336060 

01470 050533606060 

01471 +003143000000 

01472 452760633126 

01473 512460632122 

01474 432560265146 

01475 446024516444 

01476 600133606060 

01477 606060606060 

01500 606060606060 

01501 633146456003 

01502 000606336060 

01503 603145600401 

01504 336060606060 

01505 600102013360 

01506 010207336060 

01507 +000263000000 

01510 452760635121 

01511 606321224325 

01512 602651464460 

01513 245164446001 

01514 336060606060 

01515 606060606060 

01516 606060606060 

01517 633146456002 

01520 030033606060 

01521 607125514633 

01522 606060606060 

01523 600506336060 

01524 050533606060 

01525 +000256000000 

01526 452760222243 

01527 316263606321 

01530 224325602651 

01531 464460245164 

01532 446003336060 




A 
Al 



STO PR4 

CLA A+6»l 

STO PR5 

TSX PRINT«4 

HTR PRtO»PR+72 

TRA DIGRTN 

OCT 000341000000 IN SECTION IV - PART 3 

BCD 7NG FRET TABLE FROM ORUM 2» 



A2TW0 BCD 2TI0N 300. 
A3TW0 BCD 2 IN 50. 

A4 BCD 1 56. 

A5 BCD 155* 

OCT 003143000000 IN SECTION IV - PART 2 
BCD 7NG TIFRD TABLE FROM DRUM 1. 



BCD 2TI0N 3066. 

BCD 2 IN 41. 

BCD 1 121. 

BCD 1127. 

OCT 000263000000 IN SECTION IV - PART 3 

BCD 7NG TRA TABLE FROM DRUM !• 



BCD 2TI0N 230* 

BCD 2 ZERO. 

BCD 1 56. 

BCD 155. 

OCT 000256000000 IN SECTION IV - PART 6 

BCD 7NG BBLIST TABLE FROM DRUM 3. 



(J 



u 



. L 



01533 606060606060 

01534 606060606060 

01535 633146456002 

01536 030433606060 

01537 603145600603 

01540 336060606060 

01541 600700336060 

01542 060733606060 

01543 +000160000000 

01544 452760622563 

01545 606321224325 

01546 602651464460 
©1547 245164446003 

01550 336060606060 

01551 606060606060 

01552 606060606060 

01553 633146456001 

01554 . 030733606060 

01555 " 603145600407 

01556 336060606060 

01557 600506336060 

01560 050533606060 

01561 4-000103000000 

01562 452760622563 

01563 606321224325 

01564 602651464460 

01565 245164446003 

01566 336060606060 

01567 606060606060 

01570 606060606060 

01571 633146456006 

01572 023360606060 

01573 603145600407 

01574 336060606060 

01575 600506336060 

01576 050533606060 

01577 +000064000000 

01600 452760244643 

01601 316263606321 

01602 224325602651 

01603 464460245164 

01604 446001336060 

01605 606060606060 

01606 606060606060 

01607 633146456004 

01610 023360606060 

01611 603145600306 

01612 336060606060 

01613 600307336060 

01614 040033606060 

01615 606060606060 

01616 606060606060 

01617 233025234260 
01620 626444602551 



PR 



BCD 2TION 234. 

BCD 2 IN 63. 

BCD 1 70* 

BCD 167. „ „„ , 

OCT 000160000000 IN SECTION IV - PART 3 
BCD 7NG SET TABLE FROM DRUM 3. 



BCD 2TI0N 137* 

BCD 2 IN 47* 

BCD 1 56* 

BCD 155. « . „ 

OCT 000103000000 IN SECTION IV - PART 3 
BCD 7NG SET TABLE FROM DRUM 3. 



BCD 2TI0N 62. 

BCD 2 IN 47. 

BCD 1 56. 

BCD 155. 

OCT 000064000000 IN SECTION IV - PART 5 

BCD 7NG DOLIST TABLE FROM DRUM !• 



BCD 2TION 42. 

BCD 2 IN 36. 

BCD 1 37. 
BCD 140. 
BCD 2 

BCD 4CHECK SUM ERROR IN READI 



01621 
01622 
01623 
01624 
01625 
01626 
01627 
01630 
01631 
01632 
01633 
01634 
01635 
01636 
01637 
01640 
01641 
01642 
01643 
01644 
01645 
01646 
01647 
01650 
01651 
01652 
01653 
01654 
01655 
01656 
01657 
01660 
01661 
01662 
01663 
01664 
01665 
01666 
01667 
01670 
01671 
01672 
01673 
01674 
01675 
01676 
01677 
01700 
01701 
01702 
01703 
01704 
01705 
01706 



514651603145 
605125212431 
452760265125 
636063212243 
256026514644 
602451644460 
023360606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
234647706043 
464647602225 
273145626021 
636043462321 
633146456003 
336060606060 
626321516331 
452760245164 
446021242451 
256262603162 
603145600500 
336060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
234644476463 
252460233025 
234260626444 
603162603145 
600506336060 
606060245164 
446023302523 
426062644460 
316260314560 
050533606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 



PR1 BCD 7NG FRET TABLE FROM DRUM 2« 



BCD 9 



BCD 4C0PY LOOP BEGINS AT LOCA 

PR2TWO BCD 2TION 3« 

BCD 4STARTING DRUM ADDRESS IS 

PR3TWO BCD IN 50. 



BCD 4C0MPUTED CHECK SUM IS IN 



PR4 BCD 1 56. 

BCD 4 DRUM CHECK SUM IS IN 



PR5 BCD 55. 



u 



u 



L L 



01707 606060606060 

01710 606060606060 

01711 606060606060 

01712 606060606060 

01713 263165256021 

01714 636325444763 

01715 626030216525 

01716 602225254560 

01717 442124256063 

01720 466051252124 

01721 606330316260 

01722 632122432560 

01723 234651512523 

01724 634370336060 

01725 00000 00000 X 

00000 



BCD 1 

BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS TABLE CORRECTLY. 



END 



w 



TD 



00061 

01303 

01304 
01303 
01306 
01307 
01310 
01311 
01312 
01313 
01314 
01315 
01316 
01317 
01320 
01321 
01322 
01323 
01324 
01325 
01326 
01327 
01330 
01331 
01332 
01333 
01334 
01335 
01336 
01337 
01340 
01341 
01342 
01343 
01344 
01345 
01346 
01347 
01350 
01351 
01352 
01353 
01354 
01355 
01356 
01357 
01360 
01361 
01362 
01363 



ORG 49 
01303 



3 00000 



07400 4 
01244 
76200 
46000 
70000 
50000 
76500 
73400 6 
-0 75400 
76300 
60100 
76700 
60100 
50000 4 
40000 
40000 
00001 4 
07400 4 
60200 
56000 
-0 76300 
-0 50000 
-0 76300 
60200 
-0 76300 
56000 
-0 76300 
60200 
50000 2 
60100 
07400 4 
01571 
02000 
00000 
00000 
00000 
452760216006 
452760216004 
452760216002 
606060606060 
606060606060 
233025234260 
626444602551 
514651603145 
605125212431 
452760216002 
606646512460 
254563517060 



00061 
01570 
01303 
00061 
04612 
00740 
01237 
00304 
01345 
01345 
01345 
00011 
00000 
00000 
00011 
01346 
00001 
01347 
04612 
01346 
01347 
01323 
00730 
01257 
01257 
00014 
01406 
00022 
01406 
00006 
01407 
00036 
01407 
01353 
01361 
00740 
01353 
00221 
03700 
00000 
00000 



FORCE NEW RECORD 

ORG 49 

HTR X-lfOtLOCREC 

ORG LOCREC 

TXH 49 
SUB0R6 SYN84612 

TSX PRlNTf4 

HTR MACHlN#0tMACHIN+5 

RDR 4 

LDA TAG 

CPY TAG 

CLA TAG 

LRS 9 

PAX 0*6 

PXD 

LLS 9 

STO SUBES1 

ALS 1 

STO SUBES2 

CLA SUB0RG»4 

ADO SUBES1 
SUB030 ADO SUBES2 

TIX SUB030#4#1 

TSX 0CTBCD»4 

SLW ERAS 

LDO ERAS 

LGL 12 

CAL PR 2 

LGL 18 

SLW PR2 

L6L 6 

LDQ PR 3 

LGL 30 

SLW PR3 

CLA A+l#2 

STO PR1 

TSX PRINT»4 

HTR PR»0»PR+142 

TRA DIGRTN 

HTR83700 



FORCE NEW RECORD 
CARD FOR DE 

4570 FT 34 
THIS IS SUBORG+3 



SAME INSTRUCTIONS AS 

SECTION II - BLOCK 2 - 4527 THRO 4542 



AT END OF TIX* ADDRESS OF AC HAS 
DRUM ADDRESS OF FIRST WORD OF 
ENTRY AND IR 2 HAS 1-2 WORDS + SUM 

2-4 WORDS + SUM 
3-6 WORDS + SUM 



SHIFT OUT FIRST 2 BLANKS 



TAG 

SUBES1 

SUBES2 



A 
PR 



BCD 1NG 
BCD 1NG 
BCD 1NG 
BCD 2 



PR1 



BCD 4CHECK SUM ERROR IN READ I 



BCD 1N WORD 2 ENTRY AND ITS CHECK SUM IN THE TAU TABLE ON DRUM 4. 



/ 



/ > 



o 



u 



L L 



01364 


214524603163 


01365 


626023302523 


01366 


426062644460 


01367 


314560633025 


01370 


606321646063 


01371 


212243256046 


01372 


456024516444 


01373 


600433606060 


01374 


606060606060 


01375 


606060606060 


01376 


606060606060 


01377 


606060606060 


01400 


606060606060 


01401 


633025602451 


01402 


644460212424 


01403 


512562626046 


01404 


266063302560 


01405 


254563517060 


01406 


606060316260 PR2 


01407 


336060263160 PR3 


01410 


652560216363 


01411 


254447636260 


01412 


302165256022 


01413 


252545604421 


01414 


242560634660 


01415 


512521246060 


01416 


606060606060 


01417 


606060606060 


01420 


606060606060 


01421 


606060606060 


01422 


606060606060 


01423 


606060606060 


01424 


606060606060 


01425 


633025602545 


01426 


635170602346 


01427 


515125236343 


01430 


706026514644 


01431 


606330316260 


01432 


472151633123 


01433 


644321516021 


01434 


242451256262 


01435 


336060606060 


01436 


606060606060 


01437 


606060606060 


01440 


606060606060 


01441 


606060606060 


01442 


606060606060 


01443 


606060606060 


01444 


606060606060 


01445 


606060606060 


01446 


606060606060 


01447 


606060606060 


01450 


606060606060 


01451 


606060606060 



BCD 5 



BCD 5THE DRUM ADDRESS OF THE ENTRY 



BCD 1 IS • 

BCD 1* FI 

BCD VE ATTEMPTS HAVE BEEN MADE TO READ 



BCD 3 

BCD THE ENTRY CORRECTLY FROM THIS PARTICULAR ADDRESS. 



BCD 



BCD 



01452 606060606060 

01453 606060606060 

01454 606060606060 

01455 606060606060 

01456 606060606060 

01457 606060606060 

01460 606060606060 

01461 606060606060 

01462 606060606060 

01463 606060606060 

01464 606060606060 

01465 606060606060 

01466 606060606060 

01467 606060606060 

01470 606060606060 

01471 606060606060 

01472 606060606060 

01473 606060606060 

01474 606060606060 

01475 314560465124 

01476 255160634660 

01477 232143436031 

01500 456063303162 

01501 602431212745 

01502 466263312360 

01503 663163304664 

01504 636024316263 

01505 645122314527 

01506 602346512562 

01507 736002000410 

01510 606646512462 

01511 604626604425 

01512 444651706060 

01513 606060606060 

01514 606060606060 

01515 606060606060 

01516 606060606060 

01517 606060606060 

01520 606060606060 

01521 302165256022 

01522 252545605125 

01523 212460464563 

01524 466024516444 

01525 600473602425 

01526 626351467031 

01527 452760633025 

01530 606321646063 

01531 212243256025 

01532 456351312562 

01533 602145246063 

01534 302531516023 

01535 302523426062 

01536 644462336060 

01537 606060606060 



BCD 



BCD IN ORDER TO CALL IN THIS DIAGNOSTIC WITHOUT DISTURBING CORES 



BCD » 2048 WORDS OF MEMORY 



BCD HAVE BEEN READ ONTO DRUM 4» DESTROYING THE TAU TABLE ENTRIES 



BCD AND THEIR CHECK SUMS. 



i-1 



u 



u 



n 



L L 



01540 


606060606060 


01541 


606060606060 


01542 


606060606060 


01543 


606060606060 


01544 


606060606060 


01545 


442544465170 


01546 


606631434360 


01547 


222560512562 


01550 


634651252473 


01551 


602264636063 


01552 


302551256031 


01553 


626045466066 


01554 


217060634660 


01555 


234645263151 


01556 


446063302560 


01557 


233025234260 


01560 


626444602551 


01561 


514651604645 


01562 


606330256024 


01563 


516444336060 


01564 


606060606060 


01565 


606060606060 


01566 


606060606060 


01567 


606060606060 


01570 


606060606060 


01571 


00000 00000 




00000 



BCD MEMORY WILL BE RESTORED* BUT THERE IS NO WAY TO CONFIRM THE 



BCD CHECK SUM ERROR ON THE DRUM* 



END 



TO 



00062 
01303 



01304 
01305 
01306 
01307 
01310 
01311 
01312 
01313 
01314 
01315 
01316 
01317 
01320 
01321 
01322 
01323 
01324 
01325 
01326 
01327 
01330 
01331 
01332 
01333 
01334 
01335 
01336 
01337 
01340 
01341 
01342 
01343 
01344 
01345 
01346 
01347 
01350 
01351 
01352 
01353 
01354 
01355 
01356 
01357 
01360 
01361 
01362 



ORG 50 



01303 



3 00000 



07400 4 
01244 
50000 
76500 
73400 6 

-0 75400 
76300 
60100 
76700 
60100 
50000 4 
40000 
40000 
2 00001 4 
07400 4 
60200 
56000 

-0 76300 

-0 50000 

-0 76300 
60200 

-0 76300 
56000 

-0 76300 
60200 
50000 2 
60100 
07400 4 
01565 
02O00 
452760216006 
452760216004 
452760216002 
00000 00000 
00000 00000 
606060606060 
606060606060 
233025234260 
626444602551 
514651603145 
605125212431 
452760216002 
606646512460 
254563517060 
214524603163 
626023302523 
426062644460 



00062 

01564 
01303 
00062 
06626 
07773 
00740 
01237 
06626 
00011 
00000 
00000 
00011 
01345 
00001 
01346 
07773 
01345 
01346 
01320 
00730 
01257 
01257 
00014 
01402 
00022 
01402 
00006 
01403 
00036 
01403 
01345 
01355 
00740 
01347 
00221 



FORCE NEW RECORD 

ORG 50 

HTR X-l#0fCOCREC 

ORG LOCREC 

TXH 50 
TAG SYN86626 
SUBORG SYN87773 

TSX PRINT»4 

HTR MACHIN»0»MACHIN+5 

CLA TAG 

LRS 9 

PAX 0*6 

PXD 

LLS 9 

STO SUBES1 

ALS 1 

STO SUBES2 

CLA SUBORG »4 

ADO SUBES1 
SUB030 ADD SUBES2 

TIX SUB030#4»1 

TSX 0CTBCDt4 

SLW ERAS 

LDQ ERAS 

LGL 12 

CAL PR2 

LGL 18 

SLW PR2 

LGL 6 

LDQ PR 3 

LGL 30 

SLW PR 3 

CLA A+l»2 

STO PR1 

TSX PRINT»4 

HTR PR#0»PR+142 

TRA DIGRTN 

BCD 1NG A 6 



FORCE NEW RECORD 
CARD FOR DE 

7751 FT 36 

THIS IS SUBORG + 3 



SAME INSTRUCTIONS AS 7710 THRO 7723 
IN SECTION II - BLOCK 3 - INIT. 

AT END OF TIX» ADDRESS OF AC HAS 
DRUM ADDRESS OF FIRST WORD OF ENTRY 

AND IR 2 HAS 1 - 2 WORDS + SUM 
2-4 WORDS + SUM 
3-6 WORDS + SUM 



SHIFT OUT FIRST 2 BLANKS 



A 

SUBES1 
SUBES2 
PR 



PR1 



BCD 1NG 
BCD 1NG 



BCD 2 



A 4 
A 2 



BCD 4CHECK SUM ERROR IN READI 



BCD 1NG A 2 

BCD WORD ENTRY AND ITS CHECK SUM IN THE TAU TABLE ON DRUM 4. 



u 



u 



L L 



01363 

01364 

01365 

01366 

01367 

01370 

01371 

01372 

01373 

01374 

01375 

01376 

01377 

01400 

01401 

01402 

01403 

01404 

01405 

01406 

01407 

01410 

01411 

01412 

01413 

01414 

01415 

01416 

01417 

01420 

01421 

01422 

01423 

01424 

01425 

01426 

01427 

01430 

01431 

01432 

01433 

01434 

01435 

01436 

01437 

01440 

01441 

01442 

01443 

01444 

01445 

01446 

01447 

01450 



314560633025 

606321646063 

212243256046 

456024516444 

600433606060 

606060606060 

606060606060 

606060606060 

606060606060 

606060606060 

633025602451 

644460212424 

512562626046 

266063302560 

254563517060 

606060316260 

336060263160 

652560216363 

254447636260 

302165256022 

252545604421 

242560634660 

512521246060 

606060606060 

606060606060 

606060606060 

606060606060 

606060606060 

606060606060 

606060606060 

633025602545 

635170602346 

515125236343 

706026514644 

606330316260 

472151633123 

644321516021 

242451256262 

336060606060 

606060606060 

606060606060 

606060606060 

606060606060 

606060606060 

606060606060 

606060606060 

606060606060 

606060606060 

606060606060 

606060606060 

606060606060 

606060606060 

606060606060 

606060606060 



PR 2 

PR3 



BCD 5 



BCD 5THE DRUM ADDRESS OF THE ENTRY 



BCD 1 IS 
BCD I. Fl 
BCD VE ATTEMPTS HAVE BEEN MADE TO READ 



BCD 3 



BCD THE ENTRY CORRECTLY FROM THIS PARTICULAR ADDRESS. 



BCD 



BCD 



01451 


606060606060 


01452 


606060606060 


01453 


606060606060 


01454 


606060606060 


01455 


606060606060 


01456 


606060606060 


01457 


606060606060 


01460 


606060606060 


01461 


606060606060 


01462 


606060606060 


01463 


606060606060 


01464 


606060606060 


01465 


606060606060 


01466 


606060606060 


01467 


606060606060 


01470 


606060606060 


01471 


314560465124 


01472 


255160634660 


01473 


232143436031 


01474 


456063303162 


01475 


602431212745 


01476 


466263312360 


01477 


663163304664 


01500 


636024316263 


01501 


645122314527 


01502 


602346512562 


01503 


736002000410 


01504 


606646512462 


01505 


604626604425 


01506 


444651706060 


01507 


606060606060 


01510 


606060606060 


01511 


606060606060 


01512 


606060606060 


01513 


606060606060 


01514 


606060606060 


01515 


302165256022 


01516 


252545605125 


01517 


212460464563 


01520 


466024516444 


01521 


600473602425 


01522 


626351467031 


01523 


452760633025 


01524 


606321646063 


01525 


212243256025 


01526 


456351312562 


01527 


602145246063 


01530 


302531516023 


01531 


302523426062 


01532 


644462336060 


01533 


606060606060 


01534 


606060606060 


01535 


606060606060 


01536 


606060606060 



BCD 



BCD IN ORDER TO CALL IN THIS DIAGNOSTIC WITHOUT DISTURBING CORES 



BCD » 2048 WORDS OF MEMORY 



BCD HAVE BEEN READ ONTO DRUM 4» DESTROYING THE TAU TABLE ENTRIES 



BCD AND THEIR CHECK SUMS. 



u 



u 



'- L 



0153? 606060606060 

01540 606060606060 

01541 442544465170 

01542 606631434360 

01543 222560512562 

01544 634651252473 

01545 602264636063 

01546 302551256031 

01547 626045466066 

01550 217060634660 

01551 234645263151 

01552 446063302560 

01553 233025234260 

01554 626444602551 

01555 514651604645 

01556 606330256024 

01557 516444336060 

01560 606060606060 

01561 606060606060 

01562 606060606060 

01563 606060606060 

01564 606060606060 

01565 00000 00000 

00000 



BCD MEMORY WILL BE RESTORED* BUT THERE IS NO WAY TO CONFIRM THE 



BCD CHECK SUM ERROR ON THE DRUM* 



END 



1 


ORG 51 - i 


FORCE NEW RECORD 


1 


00063 


ORG 51 


00063 


01303 01604 


HTR X-1»0*L0CREC 




01303 


ORG LOCREC 


TO 01303 


3 00000 00063 


TXH 51 


01304 


07400 4 00740 


TSX PRINTS 


01305 


01244 01237 


HTR MACHIN»0»MACHIN+5 


01306 


76200 00304 


RDR 4 


01307 


46000 01357 


LDA AOSBTG 


01310 


70000 01356 


CPY SUBTAG 


01311 


50000 01356 


CLA SUBTAG 


01312 


76500 00011 


LRS 9 


01313 


73400 6 00000 


PAX Ot6 


T 01314 


-0 75400 00000 


PXD 


01315 


.0 76300 00011 


LLS 9 


01316 


60100 01360 


STO SUBES1 


01317 


76700 00001 


ALS 1 


01320 


60100 01361 


STO SUBES2 


01321 


-0 75400 4 00000 


PXD 0*4 


01322 


77100 00022 


ARS 18 


01323 


60100 01257 


STO ERAS 


01324 


50000 01363 


CLA ADSBRG 


01325 


40200 01257 


SUB ERAS 


01326 


62100 01257 


STA ERAS 


01327 


76200 00304 


RDR 4 


01330 


46000 01257 


LDA ERAS 


01331 


70000 01362 


CPY SUBORG 


01332 


50000 01362 


CLA SUBORG 


01333 


40000 01360 


ADD SUBES1 


01334 


40000 01361 SUB030 


ADD SUBES2 


01335 


2 00001 4 01334 


TIX SUB030»4»1 


01336 


07400 4 00730 


TSX OCT BCD* 4 


01337 


60200 01257 


SLW ERAS 


01340 


56000 01257 


LDQ ERAS 


01341 


-0 76300 00014 


LGL 12 


01342 


-0 50000 01422 


CAL PR 2 


01343 


-0 76300 00022 


LGL 18 


01344 


60200 01422 


SLW PR2 


01345 ■ 


-0 76300 00006 


LGL 6 


01346 


56000 01423 


LDO PR 3 


01347 • 


-0 76300 00036 


LGL 30 


01350 


60200 01423 


SLW PR3 


01351 


50000 2 01367 


CLA A+li2 


01352 


60100 01375 


STO PR1 


01353 


07400 4 00740 


TSX PR I NT* 4 


01354 


01605 01367 


HTR PR»0»PR+142 


01355 


02000 00221 


TRA DIGRTN 


01356 


00000 00000 SUBTAG 





FORCE NEW RECORD 
CARD FOR DE 

1231 FT 45 



MOSTLY SAME INSTRUCTIONS AS 1153 THRO 
1166 IN SECTION II* BLOCK 4 



MODIFY ADDRESS TO BE SAME 
AS SUB0RG+3»4 



ATEND OF TIX* AC ADDRESS IS 

ADDRESS OF ENTRY ON DRUM AND 

IR2 CONTAINS 1-2 WORDS + CHECK SUM* 

2-4 WORDS + SUM* OR 3 - 6 WORDS ♦ SUM 



SHIFT OUT FIRST 2 BLANKS 



01357 +000000001237 ADSBTG OCT 000000001237 

01360 00000 00000 SUBES1 

01361 00000 00000 SUBES2 

01362 00000 00000 SUBORG 

01363 +000000001235 ADSBR6 OCT 000000001235 

01364 452760216006 BCD 1NG A 6 



P 1 



u 



u 



L L 



01365 

01366 

01367 

01370 

01371 

01372 

01373 

01374 

01375 

01376 

01377 

01400 

01401 

01402 

01403 

01404 

01405 

01406 

01407 

01410 

01411 

01412 

01413 

01414 

01415 

01416 

01417 

01420 

01421 

01422 

01423 

01424 

01425 

01426 

01427 

01430 

01431 

01432 

01433 

01434 

01435 

01436 

01437 

01440 

01441 

01442 

01443 

01444 

01445 

01446 

01447 

01450 

01451 

01452 



452760216004 
452760216002 
. 606060606060 
606060606060 
233025234260 
626444602551 
514651603145 
605125212431 
452760216002 
606646512460 
254563517060 
214524603163 
626023302523 
426062644460 
314560633025 
606321646063 
212243256046 
456024516444 
600433606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060. 
633025602451 
644460212424 
512562626046 
266063302560 
254563517060 
606060316260 
336060263160 
652560216363 
254447636260 
302165256022 
252545604421 
242560634660 
512521246060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
633025602545 
635170602346 
515125236343 
706026514644 
606330316260 
472151633123 
644321516021 
242451256262 
336060606060 
606060606060 





BCO 1NG A 4 


A 


BCD 1NG A 2 


PR 


BCD 2 



PR1 



BCD 4CHECK SUM ERROR IN READ I 



BCD 1NG A 2 

BCD WORD ENTRY AND ITS CHECK SUM IN THE TAU TABLE ON DRUM 4. 



PR 2 
PR 3 



BCD 5 



BCD 5THE DRUM ADDRESS OF THE ENTRY 



BCD 1 IS 
BCD 1« Fl 
BCD VE ATTEMPTS HAVE BEEN MADE TO READ 



BCD 3 



BCD THE ENTRY CORRECTLY FROM THIS PARTICULAR ADDRESS. 



01453 606060606060 

01454 606060606060 

01455 606060606060 

01456 606060606060 

01457 606060606060 

01460 606060606060 

01461 606060606060 

01462 606060606060 

01463 606060606060 

01464 606060606060 

01465 606060606060 

01466 606060606060 

01467 606060606060 

01470 606060606060 

01471 606060606060 

01472 606060606060 

01473 606060606060 

01474 606060606060 

01475 606060606060 

01476 606060606060 

01477 606060606060 

01500 606060606060 

01501 606060606060 

01502 606060606060 

01503 606060606060 

01504 606060606060 

01505 606060606060 

01506 606060606060 

01507 606060606060 

01510 606060606060 

01511 314560465124 

01512 255160634660 
©1513 232143436031 

01514 456063303162 

01515 602431212745 

01516 466263312360 

01517 663163304664 

01520 636024316263 

01521 645122314527' 

01522 602346512562 

01523 736002000410 

01524 606646512462 

01525 604626604425 

01526 444651706060 

01527 606060606060 

01530 606060606060 

01531 606060606060 

01532 606060606060 

01533 606060606060 

01534 606060606060 

01535 302165256022 

01536 252545605125 

01537 212460464563 
01540 466024516444 



BCD 



BCD 



BCD 



BCD IN ORDER TO CALL IN THIS DIAGNOSTIC WITHOUT DISTURBING CORES 



BCD t 2048 WORDS OF MEMORY 



BCD HAVE BEEN READ ONTO DRUM 4t DESTROYING THE TAU TABLE ENTRIES 






u 



u 



015*1 


600473602425 


015*2 


626351467031 


02543 


452760633025 


015*4 


606321646063 


01545 


212243256025 


01546 


456351312562 


01547 


602145246063 


01550 


302531516023 


01551 


302523426062 


01552 


644462336060 


01553 


606060606060 


01554 


606060606060 


01555 


606060606060 


01556 


606060606060 


01557 


606060606060 


01560 


606060606060 


01561 


442544465170 


01562 


606631434360 


01563 


222560512562 


01564 


634651252473 


01565 


602264636063 


01566 


302551256031 


01567 


626045466066 


01570 


217060634660 


02571 


234645263151 


01572 


446063302560 


01573 


233025234260 


01574 


626444602551 


01575 


514651604645 


01576 


606330256024 


01577 


516444336060 


01600 


606060606060 


01601 


606060606060 


01602 


606060606060 


01603 


606060606060 


01604 


606060606060 


01605 


00000 00000 X 




00000 



BCD AND THEIR CHECK SUMS* 



BCD MEMORY WILL BE RESTORED. BUT THERE IS NO WAY TO CONFIRM THE 



BCD CHECK SUM ERROR ON THE DRUM. 



END 



1 




ORG 52 






FORCE 


NEW RECORD 


1 










00064 




ORG 


52 




' 00064 





01303 





01564 
01303 




HTR 
ORG 


X-1»0»L0CREC 
LOCREC 


TD 


01303 


3 


00000 





00064 




TXH 


52 




01304 





07400 


4 


00740 




TSX 


PRINT»4 




01305 





01244 





01237 
04331 
04327 


SUBTAG 
SUBORG 


HTR 
SYN 
SYN 


MACHlN#0#MACHIN+5 

2265 

2263 




01306 





50000 





04331 




CLA 


SUBTAG 




01307 





76500 





00011 




LRS 


9 




01310 





73400 


6 


00000 




PAX 


0t6 


T 


01311 


-0 


75400 





00000 




PXD 






01312 





76300 





00011 




LLS 


9 




01313 





60100 





01342 




STO 


SUBES1 




01314 





76700 





00001 




ALS 


1 




01315 





60100 





01343 




STO 


SUBES2 




01316 





50000 


4 


04327 




CLA 


SUBORG »4 




01317 





40000 





01342 




ADO 


SUBES1 




01320 





40000 





01343 


SUB030 


ADD 


SUBES2 




01321 


2 


00001 


4 


01320 




TIX 


SUB030»4»1 




01322 





Q7400 


4 


00730 




TSX 


0CTBCD»4 




01323 





60200 





01257 




SLW 


ERAS 




01324 





56000 





01257 




LDO 


ERAS 




01325 


-0 


76300 





00014 




LGL 


12 




01326 


-0 


50000 





01402 




CAL 


PR 2 




01327 


-0 


76300 





00022 




LGL 


18 




01330 





60200 





01402 




SLW 


PR 2 




01331 


-0 


76300 





00006 




LGL 


6 




01332 





56000 





01403 




LDQ 


PR 3 




01333 


-0 


76300 





00036 




LGL 


30 




01334 





60200 





01403 




SLW 


PR 3 




01335 





50000 


2 


01347 




CLA 


A+1.2 




01336 





60100 





01355 




STO 


PR1 




01337 





07400 


4 


00740 




TSX 


PRINTt4 




Q1340 





01565 





01347 




HTR 


PR»0»PR+142 




01341 





02000 





00221 




TRA 


DIGRTN 




01342 





00000 





00000 


SUBES1 








01343 





00000 





00000 


SUBES2 








01344 


452760216006 




BCD 


1NG A 6 




01345 


452760216004 




BCD 


1NG A 4 




01346 


452760216002 


A 


BCD 


1NG A 2 




01347 


606060606060 


PR 


BCD 


2 




01350 


606060606060 










01351 


233025234260 




BCD 


4CHECK SUM ERROR 




01352 


626444602551 










01353 


5146516031^5 










01354 


605125212431 










01355 


452760216002 


PR1 


BCD 


ING A 2 




01356 


606646512460 




BCD 


WORD ENTRY AND 




01357 


254563517060 










01360 


214524603163 










01361 


626023302523 










01362 


426062644460 









FORCE NEW RECORD 
CARD FOR DE 

4307 FT 51 



4331 OCTAL 

4327 OCTAL - THIS IS SUBORG + 3 
SAME AS INSTRUCTIONS 4246 THRO 
4261 IN SECTION II 

AT END OF TIX» AC ADDRESS HAS 

DRUM ADDRESS OF ENTRY AND 

IR 2 EQUALS 1 FOR 2 WORD + CHECKSUM 

2 FOR 4 WORD + SUM 

3 FOR 6 WORD + SUM 



SHIFT OUT FIRST 2 BLANKS 



l» 



r\ i T 



U 



U 



'. L 



o 



01363 


314560633025 


01364 


606321646063 


01365 


212243256046 


01366 


456024516444 


01367 


600433606060 


01370 


606060606060 


01371 


606060606060 


01372 


606060606060 


01373 


606060606060 


01374 


606060606060 


01375 


633025602451 


01376 


644460212424 


01377 


512562626046 


01400 


266063302560 


01401 


254563517060 


01402 


606060316260 PR2 


01403 


336060263160 PR3 


01404 


652560216363 


01405 


254447636260 


01406 


302165256022 


01407 


252545604421 


01410 


242560634660 


01411 


512521246060 


01412 


606060606060 


01413 


606060606060 


01414 


606060606060 


01415 


606060606060 


01416 


606060606060 


01417 


606060606060 


01420 


606060606060 


01421 


633025602545 


01422 


635170602346 


01423 


515125236343 


01424 


706026514644 


01425 


606330316260 


01426 


472151633123 


01427 


644321516021 


01430 


242451256262 


01431 


336060606060 


01432 


606060606060 


01433 


606060606060 


01434 


606060606060 


01435 


606060606060 


01436 


606060606060 


01437 


606060606060 


01440 


606060606060 


01441 


606060606060 


01442 


606060606060 


01443 


606060606060 


01444 


606060606060 


01445 


606060606060 


01446 


606060606060 


01447 


606060606060 


01450 


606060606060 



BCD 5 



BCD 5THE DRUM ADDRESS OF THE ENTRY 



BCD 1 IS 
BCD 1. FI 
BCD VE ATTEMPTS HAVE BEEN MADE TO READ, 



BCD 3 



BCD THE ENTRY CORRECTLY FROM THIS PARTICULAR ADDRESS, 



BCD 



BCD 



u 



01451 

01452 

01453 

01454 

01455 

01456 

01457 

01460 

02461 

01462 

01463 

01464 

01465 

01466 

01467 

01470 

01471 

01472 

01473 

01474 

01475 

01476 

01477 

01500 * 

01501 

01502 

01503 

01504 

01505 

01506 

01507 

01510 

01511 

01512 

01513 

01514 

01515 

02516 

01517 

01520 

01521 

01522 

01523 

01524 

01525 

01526 

01527 

01530 

01531 

01532 

01533 

01534 

01535 

01536 



606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
314560465124 
255160634660 
232143436031 
456063303162 
602431212745 
466263312360 
663163304664 
636024316263 
645122314527 
602346512562 
736002000410 
606646512462 
604626604425 
444651706060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
302165256022 
252545605125 
212460464563 
466024516444 
600473602425 
626351467031 
452760633025 
606321646063 
212243256025 
456351312562 
602145246063 
302531516023 
302523426062 
644462336060 
606060606060 
606060606060 
606060606060 
606060606060 



BCD 



BCD IN ORDER TO CALL IN THIS DIAGNOSTIC WITHOUT DISTURBING CORES 



BCD » 2048 WORDS OF MEMORY 



BCD HAVE BEEN READ ONTO DRUM 4t DESTROYING THE TAU TABLE ENTRIES 



BCD AND THEIR CHECK SUMS. 



r\ 



01537 


606060606060 


01540 


606060606060 


01541 


442544465170 


01542 


606631434360 


01543 


222560512562 


01544 


634651252473 


01545 


602264636063 


01546 


302551256031 


01547 


626045466066 


01550 


217060634660 


01551* 


234645263151 


01552 


446063302560 


01553 


233025234260 


01554 


626444602551 


01555 


514651604645 


01556 


606330256024 


01557 


516444336060 


01560 


606060606060 


01561 


606060606060 


01562 


606060606060 


01563 


606060606060 


01564 


606060606060 


01565 


00000 00000 




00000 



BCD MEMORY WILL BE RESTORED* BUT THERE IS NO WAY TO CONFIRM THE 



BCD CHECK SUM ERROR ON THE DRUM* 



END 



l» 



u 



ORG 53 



00065 01303 



TD 



01303 
01304 
01305 
01306 
01307 
01310 
01311 
01312 
01313 
01314 
01315 
01316 
01317 
01320 
01321 
01322 
01323 
01324 
01325 
01326 
01327 
01330 
01331 
01332 
01333 
01334 
01335 
01336 
01337 
01340 
01341 
01342 
01343 
01344 
01345 
01346 
01347 
01350 
01351 
01352 
01353 
01354 
01355 
01356 
01357 
01360 
01361 
01362 
01363 
01364 



00000 
76200 
46000 
70000 
50000 
62100 
50000 
60100 
76200 
46000 
70000 
76200 
46000 
70000 
-0 76000 
76100 
50000 
40200 
-0 10000 
76000 
-0 53400 2 
-0 75400 2 
40200 
-0 32000 
53*00 2 
34000 2 
02000 
02000 
2 00005 2 
07400 4 
01655 
00000 
606060606060 
606060606060 
434623216331 
464560462660 
255151465173 
606630312330 
603021626022 
252545604751 
314563252473 
603021626023 
216462252460 
243121274546 
626331236051 
252346512460 
456444222551 
600503606060 
606060606060 
606060606060 



00065 
02746 
01303 
00065 
00304 
02136 
02136 
02136 
01311 
00000 
02137 
00304 
02140 
02140 
00304 
02141 
02141 
00141 
00000 
01234 
02142 
01327 
00141 
00000 
00000 
01234 
01230 
02135 
02135 
01337 
01655 
01334 
00 740 
01343 
00221 



FORCE NEW RECORD 

ORG 53 

HTR X-ltOtLOCREC 

ORG LOCREC 

TXH 53 

RDR 4 

LDA D273 

CPY D273 

CLA 0273 

STA GETSUM 
GETSUM CLA 

STO DRMSUM 

RDR 4 

LDA D307 

CPY D307 

RDR 4 

LDA D313 

CPY D313 

SLT8141 

NOP 

CLA PREFX1 

SUB MEM4K 

TNZ LX 

PSE8.141 
LX LXD Of 2 

PXD 0*2 

SUB PREFX1 

ANA DECMSK 

LXA TABt2 
CAS CAS TAB* 2 

TRA TIXT 

TRA HAVE 
TIXT TIX CAS»2«5 

TSX PRINT»4 

HTR ER»0»ER+202 

HTR DIGRTN 
ER BCD 2 



FORCE NEW RECORD 
CARD FOR DE 

150 FT 75 

THIS IS THA ACL WITH ADDRESS OF 
DRUM CHECK SUM IN CORES 



HAVE ACTUAL DRUM CHECK SUM 

HAVE COMPUTED CHECK SUM FROM 
PERMANENT LOCATION 

HAVE DRUM SELECT AND 
INITIAL DRUM ADDRESS 
TURN OFF SENSE LIGHT 1 



TURN ON SENSE LIGHT It MEMORY IS 4K 
IR2 WAS SAVED IN DEC LOC ZERO 



CANNOT IDENTIFY TABLE VERRRY BAD 



BCD LOCATION OF ERROR, WHICH HAS BEEN PRINTED. HAS CAUSED DIAGNO 



BCD STIC RECORD NUMBER 53 



u 



(J 



01365 


606060606060 


01366 


606060606060 


01367 


606060606060 


01370 


606060606060 


01371 


634660222560 


01372 


512521246031 


01373 


453360606330 


01374 


316260512523 


01375 


465124602346 


01376 


444721512562 


01377 


606330256002 


01400 


626023464447 


01401 


433144254563 


01402 


604626603145. 


01403 


* 242567605125 


01404 


273162632551 


01405 


600260634660 


01406 


216043316263 


01407 


604626600460 


01410 


632122432560 


01411 


626346476273 


01412 


606060606060 


01413 


606060606060 


01414 


606060606060 


01415 


226463604546 


01416 


604421632330 


01417 


603021626022 


01420 


252545602646 


01421 


644524336060 


01422 


606060606060 


01423 


606060606060 


01424 


6060*60606060 


01425 


606060606060 


01426 


606060606060 


01427 


606060606060 


01430 


606060606060 


01431 


606060606060 


01432 


606060606060 


01433 


606060606060 


01434 


606060606060 


01435 


606060606060 


01436 


606060606060 


01437 


606060606060 


01440 


606060606060 


01441 


633025602346 


01442 


456325456362 


01443 


604626603151 


01444 


600260662551 


01445 


256062216525 


01446 


246031456063 


01447 


302560242523 


01450 


512544254563 


01451 


604626604346 


01452 


232163314645 



BCD TO BE READ IN* THIS RECORD COMPARES THE 2S COMPLIMENT OF IN 



BCD DEX REGISTER 2 TO A LIST OF 4 TABLE STOPS* 



BCD BUT NO MATCH HAS BEEN FOUND. 



BCD 



BCD THE CONTENTS OF IR 2 WERE SAVED IN THE DECREMENT OF LOCATION 



01*53 


607125514633 


BCD ZERO* 


01454 


606060606060 




01455 


606060606060 




01456 


606060606060 




01457 


606060606060 




01460 


606060606060 




01461 


606060606060 




01462 


606060606060 




01463 


606060606060 




01464 


606060606060 




01465 


633031626024 


BCD THIS D 


01466 


252351254425 




01467 


456360623046 




01470 


644324602550 




01471 


642143603333 


* 


01472 


333360606060 




01473 


606060606060 




01474 


606060606060 




01475 


606060606060 




01476 


606060606060 




01477 


606060606060 


BCD 


01500 


606060606060 




01501 


606060606060 




01502 


606060606060 




01503 


606060606060 




01504 


606060606060 


• 


01505 


606060606060 




01506 


606060606060 




01507 


606060606060 




01510 


606060606060 




01511 


606060606060 


BCD 


01512 


606060606060 




01513 


606060606007 




01514 


070704046060 




01515 


606263212760 




01516 


632122432560 




01517 


606060606060 




01520 


606060606060 




01521 


606060606060 




01522 


606060606060 




01523 


606060606060 


BCD 


01524 


606060606060 




01525 


606060606060 




01526 


606060606060 




01527 


606060606060 




01530 


606060606060 




01531 


606060606060 




01532 


606060606060 




01533 


606060606060 




01534 


606060606060 




01535 


606060606060 


BCD 


01536 


606060606060 




01537 


606060606007 




01540 


070703036060 





77744 STAG TABLE 



77733 SUCC TABLE 



u 



u 



L L 



01541 
01542 
01543 
01544 
01545 
01546 
01547 
01550 
01551 
01552 
01553 
01554 
01555 
01556 
01557 
01560 
01561 
01562 
01563 
01564 
01565 
01566 
01567 
01570 
01571 
01572 
01573 
01574 
01575 
01576 
01577 
01600 
01601 
01602 
01603 
01604 
01605 
01606 
01607 
01610 
01611 
01612 
01613 
01614 
01615 
01616 
01617 
01620 
01621 
01622 
01623 
01624 
01625 
01626 



606264232360 
632122432560 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606007 
070702016060 
604751252460 
632122432560 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606007 
070700076060 
602222226063 
212243256060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 



BCD 



BCD 



77721 PRED TABLE 



BCD 



BCD 



77707 BBB TABLE 



BCD 



„>■' 



01627 


606060606060 






01630 


606060606060 






01631 


512562626062 


BCD 


PRESS STAI 


01632 


632151636031 






01633 


266070466460 






01634 


663162306063 






01635 


466051256263 






01636 


465125604421 






01637 


233031452560 






01640 


634660234645 






01641 


243163314645 






01642 


603145606630 






01643 


312330602551 


BCD 


ICH ERRO 


01644 


514651604623 






01645 


236451512524 






01646 


336060606060 






01647 


606060606060 






01650 


606060606060 






01651 


606060606060 






01652 


606060606060 






01653 


606060606060 






01654 


606060606060 






01655 





50000 2 


02136 HAVE 


CLA 


TAB+1»2 


01656 





60100 


02162 


STO 


PR1 


01657 





50000 2 


02141 


CLA 


TAB+4»2 


01660 





60100 


02101 


STO 


PRTAB 


01661 





76000 


00141 


SLN 


1 


01662 





02000 


01664 


TRA 


MEM8IC 


01663 


2 


00001 2 


01664 


TIX 


MEM8IU2»1 


01664 





50000 2 


02137 MEM8K 


CLA 


TAB+2t2 


01665 





60100 


02143 


STO 


BUFADR 


01666 





50000 


02136 


CLA 


D273 


01667 


-0 


32000 


01227 


ANA 


ADDMSK 


01670 





40200 


02143 


SUB 


BUFADR 


01671 





60100 


02144 


STO 


WDC 


01672 





07400 4 


00730 


TSX 


0CTBCD»4 


01673 





60200 


01257 


SLW 


ERAS 


01674 





56000 


01257 


LDO 


ERAS 


01675 


-0 


76300 


00014 


L6L 


12 


01676 


-0 


50000 


02327 


CAL 


PR 6 


01677 


-0 


76300 


00022 


LGL 


18 


01700 





60200 


02327 


SLW 


PR6 


01701 


-0 


76300 


00006 


LGL 


6 


01702 





56000 


02330 


LDQ 


PR 7 


01703 


-0 


76300 


00036 


LGL 


30 


01704 





60200 


02330 


SLW 


PR7 


01705 





50000 


02143 


CLA 


BUFADR 


01706 





07400 4 


00730 


TSX 


0CTBCD»4 


01707 





60200 


01257 


SLW 


ERAS 


01710 





56000 


01257 


LDQ 


ERAS 


01711 


-0 


50000 


02221 


CAL 


ADMEM 


01712 


-0 


76300 


00022 


LGL 


18 


01713 





60200 


02221 


SLW 


ADMEM 


01714 


-0 


76300 


00022 


LGL 


18 



BCD PRESS START IF YOU WISH TO RESTORE MACHINE TO CONDITION IN WH 



BCD NAME OF TABLE 

BCD LINE ABOUT SIZE OF TABLE ENTRIES 



THIS IS ADDRESS OF 1ST WORD IN 
BUFFER FOR WHATEVER K 
SUBTRACT ADDRESS OF 1ST WORD IN 
BUFFER FROM ADDRESS OF DRUM CHECK SUM 

NOW HAVE ACTUAL WORD COUNT 

CONVERT TO BCD AND STORE IN COMMENT 



CONVERT ADDRESS OF 1ST WORD OF 
CORE BUFFER AND STORE IN COMMENT 



u 



u 





01715 


' 


56000 





00717 


LDO 


BLANKS 




01716 


-0 


76300 





00022 


L6L 


18 




01717 





60200 





02222 


SLW 


ADMEM+1 




01720 





50000 





02141 


CLA 


0313 




01721 





76700 





00007 


ALS 


7 




01722 


-0 


73400 


1 


00000 


PDX 


0.1 




01723 





50000 


1 


02110 


CLA 


DRM»1 




01724 





60100 





02171 


STO 


PR 4 




01725 





30000 





02141 


CLA 


D313 




01726 


-0 


32000 





02146 


ANA 


DRUMSK 




01727 





62100 





02145 


STA 


DRMADR 




01730 





40000 





02144 


ADO 


WDC 




01731 





76700 





00007 


ALS 


7 




01732 


-0 


73400 


2 


00000 


POX 


0*2 




01733 


-3* 


ooooo 


2 


01743 


TXL 


1SDR4»2»0 




01734 


1 


00001 


1 


01735 


TXI 


SPLIT»1#1 




01735 


-o 


50000 


1 


02110 SPLIT 


CAL 


DRNW1 




01736 





56000 





00717 


LDO 


BLANKS 




01737 


-0 


76300 





00006 


LGL 


6 




01740 





60200 





02202 


SLW 


PR 5 




01741 





50000 





02147 


CLA 


PRSPLT 




01742 





60100 





02075 


STO 


TSX1 




01743 


-3 


00002 


1 


01746 IS0R4 


TXL 


GETLDA»1»2 




01744 





50000 





02150 


CLA 


PRALL 




01745 





60100 





02103 


STO 


TSX2 




01746 





50000 





02145 GETLDA 


CLA 


DRMADR 




01747 





07400 


4 


00730 


TSX 


0CTBCD#4 




01750 





60200 





01257 


SLW 


ERAS 




01751 





56000 





01257 


LDQ 


ERAS 




01752 


-0 


76300 





00014 


LGL 


12 




01753 


-0 


50000 





02167 


CAL 


PR 2 




01754 


-0 


76300 





00014 


LGL 


12 




01755 





60200 





02167 


SLW 


PR 2 




01756 


-o 


76300 





00014 


LGL 


12 




01757 





56000 





02170 


LDQ 


PR3 




01760 


-0 


76300 





00030 


LGL 


24 




01761 





60200 





02170 


SLW 


PR3 




01762 





50000 





02136 


CLA 


D273 




01763 





07400 


4 


00730 


TSX 


0CTBCD»4 




01764 





60200 





02420 


SLW 


PR9 




01765 





56000 





02140 


LDQ 


D307 




01766 


-0 


76300 





00017 


LGL 


15 




01767 





07400 


4 


00730 


TSX 


0CTBCD»4 




01770 





60200 





01257 


SLW 


ERAS 




01771 





56000 





01257 


LDQ 


ERAS 


T 


01772 


-0 


75400 





00000 


PXD 






01773 


-0 


76300 





00006 


LGL 


6 




01774 





60200 





01260 


SLW 


ERAS+1 


T 


01775 


-0 


75400 





00000 


PXD 






01776 


-0 


76300 





00006 


LGL 


6 




01777 





76700 





00006 


ALS 


6 




02000 





40000 





01260 


ADD 


ERAS+1 




02001 


-0 


76300 





00030 


LGL 


24 




02002 





60200 





02376 


SLW 


PR 8 



FIND NUMBER OF DRUM 



BCD TABLE 



ADD WORD COUNT TO ADDRESS OF 

1ST WORD ON DRUMj SPLIT DRUM 

IF BITS CAN BE MOVED INTO DECREMENT 



NEXT BCD WORD FROM TABLE INTO 
COMMENT 



EXPAND FIRST COMMENT TO SHOW 

SPLIT BUFFER 

IFF BUFFER ON DRUM 4» IT IS CLOBBERED 

PRINT SAME 

CONVERT ADDRESS OF 1ST WORD ON 
THE DRUM AND STORE IN COMMENT 



CONVERT AND STORE ADDRESS IN CORES 
OF DRUM CHECK SUM 

CONVERT ALL OF 36 BIT WORD TO PRINT 
COMPUTED CHECK SUM 



IE» STORE OOOOOB 



,l<> 



02003 





56000 





02140 


LDQ 


D307 


02004 


-0 


76300 





00017 


LGL 


15 


02005 


-0 


75400 





00000. 


PXD 




02006 


-0 


76300 





00014* 


LGL 


12 


02007 





07400 


4 


00730 


TSX. 


0CTBCD»4 


02010 





60200 





01257 


SLW 


ERAS 


02011 





56000 





01257 


LDQ 


ERAS 


02012 


-0 


76300 





00022 


LGL 


18 


02013 





76700 





00006 


ALS 


6 


02014 





40000 





01260 


ADD 


ERAS+1 


02015 


-0 


76300 





00006 


LGL 


6 


02016 





76700 





00006 


ALS 


6 


02017 





40000 





01260 


ADD 


ERAS+1 


02020 


-0 


76300 





00014 


LGL 


12 


02021 





60200 





02377 


SLW 


PR8+1 


02022 





56000 





02140 


LDQ 


D307 


02023 


-0 


76300 





00033 


LGL 


27 


02024 


-0 


75400 





00000 


PXD 




02025 


-0 


76300 





00011 


LGL 


9 


02026 





07400 


4 


00730 


TSX 


0CTBCD#4 


02027 





60200 





01257 


SLW 


ERAS 


02030 





56000 





01257 


LDQ 


ERAS 


02031 


-0 


77300 





00022 


RQL 


18 


02032 


-0 


76300 





00022 


LGL 


18 


02033 





56000 





00717 


LDQ 


BLANKS 


02034 


-0 


76300 





00022 


LGL 


18 


02035 





60200 





02400 


SLW 


PR8+2 


02036 





56000 





02137 


LDQ 


DRMSUM 


02037 


-0 


75400 





00000 


PXD 




02040 


-0 


76300 





00003 


LGL 


3 


02041 





76700 





00006 


ALS 


6 


02042 


-0 


60200 





02421 


ORS 


PR10 


02043 


-0 


76300 





00017 


LGL 


15 


02044 





07400 


4 


00730 


TSX 


0CTBCD»4 


02045 





60200 





01257 


SLW 


ERAS 


02046 





56000 





01257 


LDQ 


ERAS 


02047 


-0 


77300 





00006 


RQL 


6 


02050 


-0 


60000 





02422 


STQ 


PR10+1 


02051 





56000 





02137 


LDQ 


DRMSUM 


02052 


-o 


76300 





00022 


LGL 


18 


02053 


~o 


75400 





00000 


PXD 




02054 


-0 


76300 





00017 


LGL 


15 


02055 


-0 


60000 





01261 


STQ 


ERAS+2 


02056 





07400 


4 


00730 


TSX 


0CTBCDt4 


02057 





60200 





01257 


SLW 


ERAS 


02060 





56000 





01257 


LDQ 


ERAS 


02061 


-0 


76300 





00014 


LGL 


12 


02062 





76700 





00006 


ALS 


6 


02063 





40000 





01260 


ADD 


ERAS+1 


02064 


-0 


76300 





00030 


LGL 


24 


02065 





60200 





02423 


SLW 


PR10+2 


02066 





56000 





01261 


LDQ 


ERAS+2 


02067 


-0 


75400 





00000 


PXD 




02070 


-0 


76300 





00003 


LGL 


3 



CONVERT AND STORE ALL OF 36 BIT 
DRUM CHECK SUM 



II* 



ll 



u 



u 



L I 



02071 56000 

02072 -0 76300 













02073 

02074 

02075 

02076 

02077 

02100 

02101 

02102 

02103 

02104 

02105 

02106 

02107 

02110 

02111 

02112 

02ils 

021 J v 

02ii* 

021 16 

02117 

02120 

02121 

02122 

02123 

02124 

02125 

02126 

02127 

02130 

02131 

02132 

02133 

02134 

02135 

02136 

02137 

02140 

02141 



00717 

00036 

02424 

00740 

02151 TSX1 

00740 

02211 



00740 

00000 PRTAB 
00740 

02315 TSX2 
00221 



DRM 



60200 
07400 
02177 
07400 
02223 
07400 
00000 
07400 
02603 
02000 
245164446004 
245164446003 
245164446002 
245164446001 
00034 00000 STIR 
606263212760 
00000 05263 
Q 00000 05061 
02251 02223 
00045 00000 
606264232360 
00000 16734 
00000 07555 
02265 02251 
00057 00000 
604751252460 
00000 15674 
00000 07337 
02301 02265 
00071 00000 
606022222260 
00000 12533 
06442 
02301 
00024 TAB 
00273 D273 
00000 DRMSUM 
00307 D307 
00313 D313 



00000 
02315 
00000 
00000 
00000 
00000 
00000 



02142 +010000000000 



MEM4K 



02143 
02144 
02145 
02146 
02147 
02150 
02151 
02152 
02153 
02154 
02155 
02156 



00000 

00000 

00000 

00000 

02211 

02747 
606060606060 
606060606060 
233025234260 
626444602551 
514651603145 
605125212431 



00000 BUFADR 
00000 WDC 
00000 DRMAOR 
03777 DRUMSK 
02151 PRSPLT 
02315 PRALL 
PR 



LDQ BLANKS 

LGL 30 

SLW PR 10+3 

TSX PRINT»4 

HTR PR»0»PR+22 

TSX PRINT»4 

HTR PRCR»0»PRCR+10 

TSX PRINTf4 

TSX PRINT»4 

HTR PRSZ»0»PRSZND 

TRA DIGRTN 

BCD 10RUM 4 

BCD 1DRUM 3 

BCD 1DRUM 2 

BCD 1DRUM 1 

HTR80»0»34 

BCD 1 STAG 

HTR85263 

HTR85061 

HTR PRA»0»PRA+22 

HTR80»0»45 

BCD 1 SUCC 

HTR816734 

HTR87555 

HTR PRB»0»PRB+12 

HTR80»0»57 

BCD 1 PRED 

HTR815674 

HTR87337 

HTR PRC»0»PRC+12 

HTR80»0»71 

BCD 1 BBB 

HTR812533 

HTR86442 

HTR PRD»0tPRD+12 

HTR TAB-STIR 

HTR8273 

HTR8307 
HTR8313 
OCT 01000OO00O00 



HTR83777 
HTR PR»0»PR+32 
HTR PRSZ»0»X 
BCD 2 



STAG DEC HAS IR2 COMPLEMENTED 
IF TABLE STAG IR 2 IS 77744 
BUFFER ADDRESS FIRST WORD 8K 
DITTO 4K 

SUCC IR2 IS 77733 

8K 
4K 

PRED IR2 IS 77721 

8K 

4K 

BBB IR2 IS 77707 

8K 
4K 



COPY ACL WITH ADDRESS OF DRUM SUM IN CORES 
DRUM SUM FROM ADDRESS FOUND ABOVE 
COMPUTED SUM PICKED UP FROM 307 AND STORED 
DRUM SELECT AND INITIAL ADDRESS FROM 313 

CORE ADDRESS OF 1ST WORD OF TABLE 

ACTUAL WORD COUNT STORED HERE 

D313 ANA 3777 IS ADDRESS 1ST WORD ON DRUM 



BCD 7CHECK SUM ERROR IN READING A BUFFER OF THE 



i'< 



02157 

02160 

02161 

02162 

02163 

02164 

02165 

02166 

02167 

02170 

02171 

02172 

02173 

02174 

02175 

02176 

02177 

02200 

02201 

02202 

02203 

02204 

02205 

02206 

02207 

02210 

02211 

02212 

02213 

02214 

02215 

02216 

02217 

02220 

02221 

02222 

02223 

02224 

02225 

02226 

02227 

02230 

02231 

02232 

02233 

02234 

02235 

02236 

02237 

02240 

02241 

02242 

02243 

02244 



452760216022 

642626255160 

462660633025 

606263212760 

632122432573 

602225273145 

453145276021 

636021242451 

606025626260 

604645606060 

245164446001 

606060606060 

606060606060 

606060606060 

606060606060 

606060606060 

214524602346 

456331456425 

246046456024 

516444600233 

606060606060 

606060606060 

606060606060 

606060606060 

606060606060 

606060606060 

606060606060 

606060606060 

314560234651 

256273606330 

256022642626 

255160222527 

314562602163 

604346232163 

606060314645 

606060606060 

606060606060 

606060606060 

633025606263 

212760632122 

432560302162 

602160046022 

316360254563 

517060264651 

602521233060 

632127272524 

603145626351 

642363314645 

602346444731 

432524336060 

252123306062 

632127606646 

512460304643 

246260116025 



PR1 



BCD 1 STAG 

BCD 4TABLE* BEGINNING AT ADDR 



PR2 


BCD 


1 ESS 


CHANGED TO ESS 12 


PR3 


BCD 


1 ON 


CHANGED TO 34 ON 


PR4 


• BCD 


6DRUM 1 





BCD 3AND CONTINUED ON D 



PR5 BCD 7RUM 2# 



PRCR BCD 2 

BCD 6IN CORES* THE BUFFER BEGINS AT LOCAT 



ADMEM BCD 2 ION CHANGED TO ION 12345 

PRA BCD 2 

BCD THE STAG TABLE HAS A 4 BIT ENTRY FOR EACH TAGGED INSTRUCTION 



BCD COMPILED. EACH STAG WORD HOLDS 9 ENTRIES. 



|,>'/ 



u 



(J 



02245 

02246 

02247 

02250 

02251 

02252 

02253 

02254 

02255 

02256 

02257 

02260 

02261 

02262 

02263 

02264 

02265 

02266 

02267 

02270 

02271 

02272 

02273 

02274 

02275 

02276 

02277 

02300 

02301 

02302 

02303 

02304 

02305 

02306 

02307 

02310 

02311 

02312 

02313 

02314 

02315 

02316 

02317 

02320 

02321 

02322 

02323 

02324 

02325 

02326 

02327 

02330 

02331 

02332 



456351312562 

336060606060 

606060606060 

606060606060 

606060606060 

606060606060 

633025606264 

232360632122 

4325603.02162 

600160664651 

246025456351 

312562336060 

606060606060 

606060606060 

606060606060 

606060606060 

606060606060 

606060606060 

633025604751 

252460632122 

432560302162 

600160664651 

246025456351 

312562336060 

606060606060 

606060606060 

606060606060 

606060606060 

606060606060 

606060606060 

633025602222 

226063212243 

256030216260 

066066465124 

602545635131 

256233606060 

606060606060 

606060606060 

606060606060 

606060606060 

606060606060 

606060606060 

633025606321 

224325606621 

626066513163 

632545604645 

606330256024 

516444602651 

464460216022 

642626255160 

606060462660 

606646512460 

626046236321 

433360606060 



PRB 



BCD 2 



BCD THE SUCC TABLE HAS 1 WORD ENTRIES. 



PRC 



BCD 2 



BCD THE PRED TABLE HAS 1 WORD ENTRIES. 



PRD 



BCD 2 



BCD THE BBB TABLE HAS 6 WORD ENTRIES* 



PRSZ BCD 2 



BCD 8THE TABLE WAS WRITTEN ON THE DRUM FROM A BUFFER 



PR 6 


BCD 1 OF 


CHANGED TO OF 123 


PR7 


BCD 1 WORD 


CHANGED TO 4 WORD 




BCD S OCTAL. 





02333 


606060606060 


02334 


606060606060 


02335 


606060606060 


02336 


606060606060 


02337 


606060606060 


02340 


606060606060 


02341 


606060606060 


02342 


606060606060 


02343 


252123306022 


02344 


642626255160 


02345 


316260264643 


02346 


434666252460 


02347 


227060316362 


•02350 


602330252342 


02351 


606264443360 


02352 


606060606060 


02353 


606060606060 


02354 


606060606060 


02355 


606060606060 


02356 


606060606060 


02357 


606060606060 


02360 


606060606060 


02361 


606060606060 


02362 


606060606060 


02363 


606060606060 


02364 


606060606060 


02365 


606060606060 


02366 


606060606060 


02367 


633025602346 


02370 


444764632524 


02371 


602330252342 


02372 


606264446031 


02373 


456043462321 


02374 


633146456003 


02375 


000760316260 


02376 


00600000QOJDO 


02377 


006000600000 


02400 


000000606060 


02401 


606060606060 


02402 


606060606060 


02403 


606060606060 


02404 


606060606060 


02405 


606060606060 


02406 


606060606060 


02407 


606060606060 


02410 


606060606060 


02411 


606060606060 


02412 


606060606060 


02413 


633025602451 


02414 


644460233025 


02415 


234260626444 


02416 


603145604346 


02417 


232163314645 


02420 


600102030405 



BCD EACH BUFFER IS FOLLOWED BY ITS CHECK SUM, 



BCD 



BCD 7THE COMPUTED CHECK SUM IN LOCATION 307 IS 



PR 8 



BCD 00000 00000 



PR9 



BCD 3 

BCD 5THE DRUM CHECK SUM IN LOCATION 

BCD 1 12345 



if 



u 



u 



02421 

02422 

02423 

02424 

02425 

02426 

02427 

02430 

02431 

02432 

02433 

02434 

02435 

02436 

02437 

02440 

02441 

02442 

02443 * 

02444 

02445 

02446 

02447 

02450 

02451 

02452 

02453 

02454 

02455 

02456 

02457 

02460 

02461 

02462 

02463 

02464 

02465 

02466 

02467 

02470 

02471 

02472 

02473 

02474 

02475 

02476 

02477 

02500 

02501 

02502 

02503 

02504 

02505 

02506 



603162600060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
263165256021 
636325444763 
626030216525 
602225254560 
442124256063 
466051252124 
606330316260 
622523633146 
456046266063 
302560632122 
432560234651 
512523634370 
602651464460 
633025602451 
644433606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 



PR10 BCD IS 



BCD 4 



BCD 



BCD 



BCD FIVE ATTEMPTS WAVE BEEN MADE TO READ THIS SECTION OF THE TAB 



BCD LE CORRECTLY FROM THE DRUM. 



02507 


606060606060 


02510 


606060606060 


02511 


606060606060 


02512 


606060606060 


02513 


606060606060 


02514 


606060606060 


02515 


606060606060 


02516 


606060606060 


02517 


606060606060 


02520 


606060606060 


02521 


606060606060 


02522 


606060606060 


02523 


606060606060 


02524 


606060606060 


02525 


606060606060 


02526 


606060606060 


02527 


606060606060 


02530 


606060606060 


02531 


606060606060 


02532 


606060606060 


02533 


606060606060 


02534 


606060606060 


02535 


606060606060 


02536 


606060606060 


02537 


606060606060 


02540 


606060606060 


02541 


606060606060 


02542 


606060606060 


02543 


606060606060 


02544 


60606060606Q 


02545 


606060606060 


02546 


606060606060 


02547 


606060606060 


02550 


606060606060 


02551 


606060606060 


02552 


606060606060 


02553 


606060606060 


02554 


606060606060 


02555 


606060606060 


02556 


606060606060 


02557 


454663256040 


02560 


603126606330 


02561 


256023302523 


02562 


426062644460 


02563 


243162235125 


02564 


472145237060 


02565 


316260432151 


02566 


272573603163 


02567 


604421706031 


02570 


452431232163 


02571 


256021604721 


02572 


516360462660 


02573 


633025604751 


02574 


462751214460 



BCD 



BCD 



BCD 



BCD 



BCD NOTE - IF THE CHECK SUM DISCREPANCY IS LARGE* IT MAY INDICAT 



BCD E A PART OF THE PROGRAM CANNOT BE REACHED. 



,,)? 



u 



u 



: l 



r*\ 



02575 
02576 
02577 
02600 
02601 
02602 
02603 
02604 
02605 
02606 
02607 
02610 
02611 
02612 
02613 
02614 
02615 
02616 
02617 
02620 
02621 
02622 
02623 
02624 
02625 
02626 
02627 
02630 
02631 
02632 
02633 
02634 
02635 
02636 
02637 
02640 
02641 
02642 
02643 
02644 
02645 
02646 
02647 
02650 
02651 
02652 
02653 
02654 
02655 
02656 
02657 
02660 
02661 
02662 



232145454663 
602225605125 
212330252433 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
314560465124 
255160634660 
232143436031 
456063303162 
602431212745 
466263312360 
663163304664 
636024316263 



PRSZNO BCD 



BCD 



BCD 



BCD 



BCD IN ORDER TO CALL IN THIS DIAGNOSTIC WITHOUT DISTURBING CORES 



02663 


645122314527 


02664 


602346512562 


02665 


736002000410 


02666 


606646512462 


02667 


604626604425 


02670 


444651706030 


02671 


216525602225 


02672 


254560665131 


02673 


636325456060 


02674 


606060606060 


02675 


606060606060 


02676 


606060606060 


02677 


464560634660 


02700 


245164446004 


02701 


736024256263 


02702 


514670314527 


02703 


606330256063 


02704 


212243256260 


02705 


214524606330 


02706 


253151602330 


02707 


252342606264 


02710 


446233606060 


02711 


606060606060 


02712 


606060606060 


02713 


606060606060 


02714 


606060606060 


02715 


606060606060 


02716 


606060606060 


02717 


606060606060 


02720 


606060606060 


02721 


606060606060 


02722 


606060606060 


02723 


442544465170 


02724 


606631434360 


02725 


222560512562 


02726 


634651252473 


02727 


602264636063 


02730 


302551256031 


02731 


626045466066 


02732 


217060634660 


02733 


234645263151 


02734 


446063302560 


02735 


233025234260 


02736 


626444602551 


02737 


514651604645 


02740 


606330256024 


02741 


516444336060 


02742 


606060606060 


02743 


606060606060 


02744 


606060606060 


02745 


606060606060 


02746 


606060606060 


02747 


00000 00000 




00000 



BCD » 2048 WORDS OF MEMORY HAVE BEEN WRITTEN 



BCD ON TO DRUM 4t DESTROYING THE TABLES AND THEIR CHECK SUMS* 



BCD 



BCD MEMORY WILL BE RESTORED* BUT THERE IS NO WAY TO CONFIRM THE 



BCD CHECK SUM ERROR ON THE DRUM. 



END 



/ 



r> 



u 



u 



1 


ORG 54 


1 


00066 


00066 


01303 01552 




01303 


TO 01303 


3 00000 00066 


01304 


07400 4 00740 


01305 


01244 01237 


01306 


07400 4 00740 


01307 


01553 01311 


01310 


02000 00221 


01311 


606060606060 


01312 


606060606060 


01313 


233025234260 


01314 


626444602551 


01315 


514651603145 


01316 


605125212431 


01317 


452760633025 


01320 


606646512460 


01321 


234664456360 


01322 


462660633025 


01323 


602531264546 


01324 


606321224325 


01325 


602651464460 


01326 


245164446004 


01327 


336060606060 


01330 


606060606060 


01331 


606060606060 


* 01332 


606060606060 


01333 


606060606060 


01334 


606060606060 


01335 


606060606060 


01336 


606060606060 


01337 


633025602451 


01340 


644460212424 


01341 


512562626046 


01342 


266063303162 


01343 


602545635170 


01344 


603162600273 


01345 


602145246031 


01346 


636031626023 


01347 


464731252460 


01350 


314563466023 


01351 


465125604346 


01352 


232163314645 


01353 


600106053360 


01354 


606060606060 


01355 


606060606060 


01356 


606060606060 


01357 


606060606060 


01360 


606060606060 


01361 


606060606060 


01362 


606060606060 


01363 


316362602330 


01364 


252342606264 



FORCE NEW RECORD 
CARD FOR DE 

222 FT $4 



PR 



FORCE NEW RECORD 
ORG 54 

HTR X-l»0»LOCREC 
ORG LOCREC 
TXH 54 
TSX PRINT»4 
HTR MACHlN»0tMACHIN+5 
TSX PRINTt4 
HTR PR#0«PR+162 
TRA DIGRTN 
BCD 2 

BCD CHECK SUM ERROR IN READING THE WORD COUNT OF THE EIFNO TABLE 



BCD FROM DRUM 4* 



BCD THE DRUM ADDRESS OF THIS ENTRY IS 2» AND IT IS COPIED INTO C 



BCD ORE LOCATION 165 • 



BCD ITS CHECK SUM IS COPIED FROM 3 INTO 223* THE COPY LOOP BEGI 



,i% 



01365 
01366 
01367 
01370 
01371 
01372 
01373 
01374 
01375 
01376 
01377 
01400 
01401 
01402 
01403 
01404 
01405 
01406 
01407 
01410 
01411 
01412 
01413 
01414 
01415 
01416 
01417 
01420 
01421 
01422 
01423 
01424 
01425 
01426 
01427 
01430 
01431 
01432 
01433 
01434 
01435 
01436 
01437 
01440 
01441 
01442 
01443 
01444 
01445 
01446 
01447 
01450 
01451 
01452 



446031626023 
464731252460 
265146446003 
603145634660 
020203336060 
633025602346 
477060434646 
476022252731 
456260216360 
020100336060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
263165256021 
636325444763 
626030216525 
602225254560 
442124256063 
466051252124 
606330316260 
464525602545 
635170602346 
515125236343 
703360606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 



BCD NS AT 210* 



BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS ONE ENTRY CORRECTL 



BCD Y« 



BCD 



BCD 



!'>■ 



U 



u 



01453 
01454 
01455 
01456 
01457 
01460 
01461 
01462 
01463 
01464 
01465 
01466 
01467 
01470 
01471 
01472 
01473 
01474 
01475 
01476 
01477 
01500 
01501 
01502 
01503 
01504 
01505 
01506 
01507 
01510 
01511 
01512 
01513 
01514 
01515 
01516 
01517 
01520 
01521 
01522 
3 1523 
31524 
01525 
01526 
01527 
01530 
01531 
01532 
01533 
01534 
01535 
01536 
01537 
01540 



606060606060 
606060606060 
606060606060 
606060606060 
314560465124 
255160634660 
232143436031 
456063303162 
602431212745 
466263312360 
663163304664 
636024316263 
645122314527 
602346512562 
736002000410 
606646512462 
604626604425 
444651706060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
302165256022 
252545605125 
212460464563 
466024516444 
600473602425 
626351467031 
452760633025 
602531264546 
606646512460 
234664456373 
603163626023 
302523426062 
644473602145 
246063302560 
632122432533 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
442544465170 
606631434360 
222560512562 
634651252473 
602264636063 
302551256031 
626045466066 
217060634660 
234645263151 
446063302560 



BCD IN ORDER TO CALL IN THIS DIAGNOSTIC WITHOUT DISTURBING CORES 



BCD . 2048 WORDS OF MEMORY 



BCD HAVE BEEN READ ONTO DRUM 4. DESTROYING THE EIFNO WORD COUNT. 



BCD ITS CHECK SUM. AND THE TABLE* 



BCD MEMORY WILL BE RESTORED. BUT THERE IS NO WAY TO CONFIRM THE 



P 



01541 


233025234260 


01542 


626444602551 


01543 


514651604645 


01544 


606330256024 


01545 


516444336060 


01546 


606060606060 


01547 


606060606060 


01550 


606060606060 


01551 


606060606060 


01552 


606060606060 


01553 


00000 00000 X 




00000 



BCD CHECK SUM ERROR ON THE DRUM. 



END 



V-1 



u 



o 



TO 



ORG 55 
00067 01303 



01303 

01304 

01305 

01306 

01307 

01310 

01311 

01312 

01313 

01314 

01315 

01316 

01317 

01320 

01321 

01322 

01323 

01324 

01325 

01326 

01327 

01330 

01331 

01332 

01333 

01334 

01335 

01336 

01337 

01340 

01341 

01342 

01343 

01344 

01345 

01346 

01347 

01350 

Q1351 

01352 

01353 

01354 

01355 

01356 

01357 

01360 

01361 

01362 

01363 

01364 



OOOOO 



00067 
01552 
01303 
00067 



FORCE NEW RECORD 
CARD FOR DE 

222 FT 107 



07400 4 00740 
01244 01237 
07400 4 00740 
01553 01311 
02000 00221 



606060606060 

606060606060 

233025234260 

626444602551 

514651603145 

605125212431 

452760633025 

606646512460 

234664456360 

462660633025 

602531264546 

606321224325 

602651464460 

245164446004 

336060606060 

606060606060 

606060606060 

606060606060 

606060606060 

606060606060 

606060606060 

606060606060 

633025602451 

644460212424 

512562626046 

266063303162 

602545635170 

603162600273 

602145246031 

636031626023 

464731252460 

314563466023 

465125604346 

232163314645 

600201010233 

606060606060 

606060606060 

606060606060 

606060606060 

606060606060 

606060606060 

606060606060 

316362602330 

252342606264 



PR 



FORCE NEW RECORD 
ORG 55 

HTR X-ltO#LOCREC 

ORG LOCREC 

TXH 55 

TSX PR INT t 4 

HTR MACHIN»0*MACHIN+5 

TSX PRINT.4 

HTR PR»0*PR+162 

TRA DIGRTN 

BCD 2 

BCD CHECK SUM ERROR IN READING THE WORD COUNT OF THE EIFNO TABLE 



BCD FROM DRUM 4* 



BCD THE DRUM ADDRESS OF THIS ENTRY IS 2« AND IT IS COPIED INTO C 



BCD ORE LOCATION 2112. 



BCD ITS CHECK SUM IS COPIED FROM 3 INTO 533* THE COPY LOOP BEGI 



01365 446031626023 

01366 464731252460 

01367 265146446003 

01370 603145634660 

01371 050303336060 

01372 633025602346 

01373 477060434646 

01374 476022252731 

01375 456260216360 

01376 020100336060 

01377 606060606060 

01400 606060606060 

01401 606060606060 

01402 606060606060 

01403 606060606060 

01404 606060606060 

01405 606060606060 

01406 606060606060 

01407 263165256021 

01410 636325444763 

01411 626030216525 

01412 602225254560 

01413 442124256063 

01414 466051252124 

01415 606330316260 

01416 464525602545 

01417 635170602346 

01420 515125236343 

01421 703360606060 

01422 606060606060 

01423 606060606060 

01424 606060606060 

01425 606060606060 

01426 606060606060 

01427 606060606060 

01430 606060606060 

01431 606060606060 

01432 606060606060 

01433 606060606060 

01434 606060 606060 

01435 606060^06060 

01436 606060606060 

01437 606060606060 

01440 606060606060 

01441 606060606060 

01442 606060606060 

01443 606060606060 

01444 606060606060 

01445 606060606060 

01446 606060606060 

01447 606060606060 

01450 606060606060 

01451 606060606060 

01452 606060606060 



BCD NS AT 210* 



BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS ONE ENTRY CORRECTL 



BCD Y« 



BCD 



BCD 



<J 



u 



o 



01453 
01454 
01455 
01456 
01457 
01460 
01461 
01462 
01463 
01464 
01465 
01466 
01467 
01470 
01471 
01472 
01473 
01474 
01475 
01476 
01477 
01500 
01501 
01502 
01503 
01504 
01505 
01506 
01507 
01510 
01511 
01512 
01513 
01514 
01515 
01516 
01517 
01520 
01521 
01522 
01523 
01524 
01525 
01526 
01527 
01530 
01531 
01532 
01533 
01534 
01535 
01536 
01537 
01540 



606060606060 
606060606060 
606060606060 
606060606060 
314560465124 
255160634660 
232143436031 
456063303162 
602431212745 
466263312360 
663163304664 
636024316263 
645122314527 
602346512562 
736002000410 
606646512462 
604626604425 
444651706060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
302165256022 
252545605125 
212460464563 
466024516444 
600473602425 
626351467031 
452760633025 
602531264546 
606646512460 
234664456373 
603163626023 
302523426062 
644473602145 
246063302560 
632122432533 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
442544465170 
606631434360 
222560512562 
634651252473 
602264636063 
302551256031 
626045466066 
217060634660 
234645263151 
446063302560 



BCD IN ORDER TO CALL IN THIS DIAGNOSTIC WITHOUT DISTURBING CORES 



BCD » 2048 WORDS OF MEMORY 



BCD HAVE BEEN READ ONTO DRUM 4. DESTROYING THE EIFNO WORD COUNT. 



BCD ITS CHECK SUM» AND THE TABLE. 



BCD MEMORY WILL BE RESTORED* BUT THERE IS NO WAY TO CONFIRM THE 



■M' 



L L 



01341 


233025234260 


01542 


626444602551 


01543 


514651604645 


01544 


606330256024 


01545 


516444336060 


01546 


606060606060 


01547 


606060606060 


01550 


606060606060 


01551 


606060606060 


01552 


606060606060 


01553 


00000 00000 




00000 



BCD CHECK SUM ERROR ON THE DRUM* 



END 



ij ' 



u 



u 



o 



ORG 56 



00070 01303 



TO 



01303 
01304 
01305 
01306 
01307 
01310 
01311 
01312 
01313 
01314 
01313 
01316 
01317 
01320 
01321 
01322 
01323 
01324 
01325 
01326 
01327 
01330 
01331 
01332 
01333 
01334 
01335 
01336 
01337 
01340 
01341 
01342 
01343 
01344 
01345 
01346 
01347 
01350 
01351 
01352 
01353 
01354 
01355 
01356 
01357 
01360 
01361 
01362 
01363 
01364 



00000 

07400 4 

01244 

76200 

46000 

70000 

50000 

77100 

60100 

07400 4 

60200 

56000 

-0 50000 

-0 77300 

-0 76300 

60200 

50000 

40200 

07400 4 

60200 

56000 
-0 76300 
-0 50000 
-0 76300 
60200 
07400 4 
01627 
02000 
•►000000002112 
00000 00165 
606060606060 
606060606060 
233025234260 
626444602551 
514651603145 
605125212431 
452760633025 
602531264546 
606321224325 
602651464460 
245164446004 
336060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 



00070 
01626 
01303 
00070 
00740 
01237 
00304 
01340 
01257 
01257 
00022 
01271 
00676 
01257 
01257 
01404 
00006 
00036 
01404 
01337 
01271 
00730 
01257 
01257 
00014 
01402 
00030 
01402 
00740 
01341 
00221 



FORCE NEW RECORD 

ORG 56 

HTR X-1»0»L0CREC 

ORG LOCREC 

TXH 56 

TSX PRINTt4 

HTR MACHlN»0»MACHlN+5 

RDR 4 

LDA A 

CPY ERAS 

CLA ERAS 

ARS 18 

STO ERAS+10 

TSX BINDEC»4 

SLW ERAS 

LDO ERAS 

CAL PR 2 

RQL 6 

LGL 30 

SLW PR2 

CLA TEIFNO 

SUB ERAS+10 

TSX 0CTBCD»4 

SLW ERAS 

LDO ERAS 

LGL 12 

CAL PR1 

LGL 24 

SLW PR1 

TSX PRINT»4 

HTR PR»0*PR+182 

TRA D1GRTN 
TEIFNO OCT 00000002112 
A HTR8165 
PR BCD 2 



FORCE NEW RECORD 
CARD FOR DE 

241 FT 107 



165 OCTAL* CONTAINS WORD COUNT 



BCD CHECK SUM ERROR IN READING THE EIFNO TABLE FROM DRUM 4. 



BCD 



01365 

01366 

01367 

01370 

01371 

01372 

01373 

01374 

01375 

01376 

01377 

01400 

01401 

01402 

01403 

01404 

01405 

01406 

01407 

01410 

01411 

01412 

01413 

01414 

01415 

01416 

01417 

01420 

01421 

01422 

01423 

01424 

01425 

01426 

01427 

01430 

01431 

01432 

01433 

01434 

01435 

01436 

01437 

01440 

01441 

01442 

01443 

01444 

01445 

01446 

01447 

01450 

01451 

01452 



606060606060 

606060606060 

633025602451 

644460212424 

512562626046 

266063302560 

263151626360 

254563517060 

316260043360 

606330256063 

212243256031 

626023464731 

252460314563 

606060604660 

602145246031 

606060606062 

606646512462 

604346452733 

606060606060 

606060606060 

606060606060 

606060606060 

633025602451 

644460233025 

234260626444 

603162603145 

600503033360 

606330256023 

464447646325 

246023302523 

426062644460 

316260454663 

606263465125 

247360633025 

512526465125 

603163603162 

604546636021 

652131432122 

432533606060 

606060606060 

606060606060 

606060606060 

633025602346 

477060434646 

476022252731 

456260216360 

434623216331 

464560020203 

336060606060 

606060606060 

606060606060 

606060606060 

606060606060 

606060606060 



BCD THE DRUM ADDRESS OF THE FIRST ENTRY IS 4. THE TABLE IS COPI 



BCD 1ED INT 
PR1 BCD 1 

BCD 1 AND I 
PR2 BCD 1 S 

BCD 6 WORDS LONG* 



BCD THE DRUM CHECK SUM IS IN 533. THE COMPUTED CHECK SUM IS NOT 



BCD STORED* THEREFORE IT IS NOT AVAILABLE. 



BCD THE COPY LOOP BEGINS AT LOCATION 223. 



BCD 



u 



u 



01453 


606060606060 




01454 


606060606060 




01455 


606060606060 




01456 


606060606060 




01457 


606060606060 




01460 


606060606060 




01461 


606060606060 




01462 


606060606060 




01463 


263165256021 


BCD FIV 


01464 


636325444763 




01465 


626030216525 




01466 


6022252^4560 




01467 


442124256063 




01470 


466051252124 




01471 


606330256025 




01472 


312645466063 




01473 


212243256023 




01474 


465151252363 




01475 


437033606060 


BCD LY. 


01476 


606060606060 




01477 


606060606060 




01500 


606060606060 




01501 


606060606060 




01502 


606060606060 




01503 


606060606060 




01504 


606060606060 




01505 


6060*6^606060 




01506 


606060606060 




01507 


606060606060 


BCD 


01510 


606060606060 




01511 


606060606060 




01512 


606060606060 




01513 


606060606060 




01514 


606060606060 




01515 


606060606060 




01516 


606060606060 




01517 


606060606060 




01520 


606060606060 




01521 


606060606060 


BCD 


01522 


606060606060 




01523 


606060606060 




01524 


606060606060 




01525 


606060606060 




01526 


606060606060 




01527 


606060606060 




01530 


606060606060 




01531 


6Q6060606060 




01532 


606060606060 




01533 


314560465124 


BCD IN 


01534 


255160634660 




01535 


232143436031 




01536 


456063303162 




01537 


602431212745 




01540 


466263312360 





BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THE EIFNO TABLE CORRECT 



BCD IN ORDER TO CALL IN THIS DIAGNOSTIC WITHOUT DISTURBING CORES 



01541 

01542 

01543 

01544 

01545 

01546 

01547 

01550 

01551 

01552 

01553 

01554 

01555 

01556 

01557 

01560 

01561 

01562 

01563 

01564 

01565 

01566 

01567 

01570 

01571 

01572 

01573 

01574 

01575 

01576 

01577 

01600 

01601 

01602 

01603 

01604 

01605 

01606 

01607 

01610 

01611 

01612 

01613 

01614 

01615 

01616 

01617 

01620 

01621 

01622 

01623 

01624 

01625 

01626 



663163304664 

636024316263 

645122314527 

602346512562 

736002000410 

606646512462 

604626604425 

444651706060 

606060606060 

606060606060 

606060606060 

606060606060 

606060606060 

606060606060 

302165256022 

252545605125 

212460464563 

466024516444 

600473602425 

626351467031 

452760633025 

602531264546 

606646512460 

234664456373 

606330256063 

212243257360 

214524603163 

626023302523 

426062644433 

606060606060 

606060606060 

606060606060 

606060606060 

606060606060 

442544465170 

606631434360 

222560512562 

634651252473 

602264636063 

302551256031 

626045466066 

217060634660 

234645263151 

446063302560 

233025234260 

626444602551 

514651604645 

606330256024 

516444336060 

606060606060 

606060606060 

606060606060 

606060606060 

606060606060 



BCD • 2048 WORDS OF MEMORY 



BCD HAVE BEEN READ ONTO DRUM 4» DESTROYING THE EIFNO WORD COUNT* 



BCD THE TABLE* AND ITS CHECK SUM. 



BCD MEMORY WILL BE RESTORED* BUT THERE IS NO WAY TO CONFIRM THE 



BCD CHECK SUM ERROR ON THE DRUM# 







U 



u 



r*\ 



01627 00000 00000 X 

00000 . END 



,< 



ORG 57 
00071 01303 



TO 



01303 

01304 

01305 

01306 

01307 

01310 

01311 

01312 

01313 

01314 

01315 

01316 

01317 

01320 

01321 

01322 

01323 

01324 

01325 

01326 

01327 

01330 

01331 

01332 

01333 

01334 

01335 

01336 

01337 

01340 

01341 

01342 

01343 

01344 

01345 

01346 

01347 

01350 

01351 

01352 

01353 

01354 

01355 

01356 

01357 

01360 

01361 

01362 

01363 

01364 



3 










-0 






-0 



00000 

07400 

01244 

76200 

46000 

70000 

50200 

40000 

07400 

56000 

76300 

60200 

07400 

01440 

02000 

00000 

75400 

606060606060 

606060606060 

233025234260 

626444602551 

514651603145 

605125212431 

452760264346 

234645606321 

224325602651 

464460245164 

446002336060 

234647706043 

464647602225 

273145626021 

636043462321 

633146456001 

020500336060 

606060606060 

606060606060 

606060606060 

606060606060 

606060606060 

626321516331 

452760245164 

446021242451 

256262603162 

603145600505 

013360606063 

302560632122 

432560222527 

314562602163 

600102030460 

214524602346 



00071 
01437 
01303 
00071 
00740 
01237 
00304 
01322 
01257 
01323 
01257 
00730 
00717 
00006 
01363 
00740 
01324 
00221 
01256 A 
05453 OTA 
PR 



FORCE NEW RECORD 
ORG 57 

HTR X-1»0»LOCREC 
ORG LOCREC 
TXH 57 
TSX PRINTS 
HTR MACHIN#0«MACHIN+5 
RDR 4 
LDA A 
CPY ERAS 
CLS OTA 
ADD ERAS 
TSX 0CTBCD»4 
LDQ BLANKS 
LGL 6 
SLW PR1 
TSX PRINT»4 
HTR PR»0»PR+76 
TRA DIGRTN 
HTR81256 
PXD85453 
BCD 2 



FORCE NEW RECORD 
CARD FOR DE 

1274 FT 22 



FORM LOCATION OF FIRST WORD IN TABLE 



LOCATION OF WORD COUNT OF FLOCON TABLE 
ADDRESS OF LAST TABLE ENTRY PLUS ONE. 



BCD CHECK SUM ERROR IN READING FLOCON TABLE FROM DRUM 2« COPY L 



BCD OOP BEGINS AT LOCATION 1250» 



BCD 9STARTING DRUM ADDRESS IS IN 551. THE TABLE BEGINS AT 



PR1 



BCD 1 1234 

BCD AND CONSISTS OF BLOCKS OF FIFTY WORDS* 



u 



u 



n 



01365 456231626362 

01366 604626602243 

01367 462342626046 

01370 266026312663 

01371 706066465124 

01372 627360606060 

01373 606060606060 

01374 606060606060 

01375 606060606060 

01376 252123306022 

01377 434623426047 

01400 512523252425 

01401 246022706031 

01402 636260466645 

01403 602330252342 

01404 606264443360 

01405 602330252342 

01406 606264444431 

01407 452760316260 

01410 244645256022 

01411 706021242440 

01412 214524402321 

01413 515170404346 

01414 273123214360 

01415 214524602346 

01416 444743254425 

01417 456333606060 

01420 606060606060 

01421 606060606060 

01422 316360316260 

01423 454663606263 

01424 465125243360 

01425 602631652560 

01426 216363254447 

01427 636260302165 

01430 256022252545 

01431 604421242560 

01432 634660512521 

01433 246063302560 
©1434 254563315125 

01435 606321224325 

01436 602346515125 

01437 236343703360 
01440 00000 00000 X 

00000 



BCD EACH BLOCK PRECEDED BY ITS OWN CHECK SUM. CHECK SUMMING IS 



BCD DONE BY ADD-AND-CARRY-LOGICAL AND COMPLEMENT. 



BCD IT IS NOT STORED* FIVE ATTEMPTS HAVE BEEN MADE TO READ THE 



BCD 4ENTIRE TABLE CORRECTLY. 



END 



Z.L L 



1 




ORG 58 


1 




00072 




00072 


.01303 01420 
01303 


TO 


01303 


3 OOOOO 00072 




01304 


07400 4 00740 




01305 


01244 01237 




01306 


07400 4 00740 




01307 


01421 01311 




01310 


02000 00221 




01311 


606060606060 




01312 


606060606060 




01313 


233025234260 




01314 


626444602551 




01315 


514651603145 




01316 


605125212431 




01317 


452760243144 




01320 


016063212243 




01321 


256026514644 




01322 


602451644460 




01323 


033360602346 




01324 


477060434646 




01325 


476022252731 




01326 


456260216360 




01327 


434623216331 




01330 


464560010301 




01331 


063360606263 




01332 


215163314527 




01333 


602451644460 




01334 


606060606060 




01335 


606060606060 




01336 


606060606060 




01337 


212424512562 




01340 


626031626031 




01341 


456006010433 




01342 


606063302560 




01343 


632122432560 




01344 


316260234644 




01345 


474662252460 




01346 


462660636646 




01347 


606646512460 




01350 


254563513125 




01351 


627360252123 




01352 


306025456351 




01353 


706026464343 




01354 


466625246022 




01355 


706031636260 




01356 


466645602330 




01357 


252342606264 




01360 


443360606060 




01361 


606060606060 




01362 


606060606060 




01363 


233025234260 




01364 


626444443145 



FORCE NEW RECORD 
CARD FOR DE 

1345 FT 22 



PR 



FORCE NEW RECORD 
ORG 58 

HTR X-1»0#L0CREC 
ORG LOCREC 
TXH 58 
TSX PRINT»4 
HTR MACHIN»Q»MACHIN+5 
TSX PRINT»4 
HTR PR*0»PR+72 
TRA DIGRTN 
BCD 2 

BCD CHECK SUM ERROR IN READING DIM1 TABLE FROM DRUM 3« COPY LOO 



BCD P BEGINS AT LOCATION 1316. STARTING DRUM 



BCD ADDRESS IS IN 614. THE TABLE IS COMPOSED OF TWO WORD ENTRIE 



BCD St EACH ENTRY FOLLOWED BY ITS OWN CHECK SUM, 



BCD CHECK SUMMING IS DONE BY ADD-AND-CARRY-LOGICAL AND COMPLEMEN 



II 



u 



o 



01365 


276031626024 


01366 


464525602270 


01367 


602124244021 


01370 


452440232151 


01371 


51704043*627 


01372 


312321436021 


01373 


452460234644 


01374 


474325442545 


01375 


633360603163 


01376 


603162604546 


01377 


636062634651 


01400 


252433606026 


01401 


316525602163 


01402 


632544476362 


01403 


606060606060 


01404 


606060606060 


01405 


606060606060 


01406 


606060606060 


01407 


302165256022 


01410 


252545604421 


01411 


242560634660 


01412 


512521246063 


01413 


302560254563 


01414 


315125606321 


01415 


224325602346 


01416 


515125236343 


01417 


703360606060 


01420 


606060606060 


01421 


00000 00000 




00000 



BCD T. IT IS NOT STORED. FIVE ATTEMPTS 



BCD HAVE BEEN MADE TO READ THE ENTIRE TABLE CORRECTLY. 



END 



LL L 



1 




ORG 59 


1 




00073 




00073 


01303 01420 
01303 


TD 


01303 


3 00000 00073 




01304 


07400 4 00740 




01305 


01244 01237 




01306 


07400 4 00740 




01307 


01421 01311 




01310 


02000 00221 




01311 


606060606060 




01312 


606060606060 




01313 


233025234260 




01314 


626444602551 




01315 


514651603145 




01316 


605125212431 




01317 


452760243144 




01320 


026063212243 




01321 


256026514644 




01322 


602451644460 




01323 


033360602346 




01324 


477060434646 




01325 


476022252731 




01326 


456260216360 




01327 


434623216331 




01330 


464560010305 




01331 


003360606263 




01332 


215163314527 




01333 


602451644460 




01334 


606060606060 




01335 


606060606060 




01336 


606060606060 




01337 


212424512562 




01340 


626031626031 




01341 


456006020133 




01342 


606063302560 




01343 


632122432560 




01344 


316260234644 




01345 


474662252460 




01346 


462660636646 




01347 


606646512460 




01350 


254563513125 




01351 


627360252123 




01352 


306025456351 




01353 


706026464343 




01354 


466625246022 




01355 


706031636260 




01356 


466645602330 




01357 


252342606264 




01360 


443360606060 




01361 


606060606060 




01362 


606060606060 




01363 


233025234260 




01364 


626444443145 



FORCE NEW RECORD 
CARD FOR DE 

1377 FT 22 



PR 



FORCE NEW RECORD 
ORG 59 

HTR X-1»0»LOCREC 
ORG LOCREC 
TXH 59 
TSX PRINT»4 
HTR MACHlN»0*MACHIN+5 
TSX PRINT»4 
HTR PR»0»PR+72 
TRA DIGRTN 
BCD 2 

BCD CHECK SUM ERROR IN READING DIM2 TABLE FROM DRUM 3. COPY LOO 



BCD P BEGINS AT LOCATION 1350* STARTING DRUM 



BCD ADDRESS IS IN 621. THE TABLE IS COMPOSED OF TWO WORD ENTRIE 



BCD S» EACH ENTRY FOLLOWED BY ITS OWN CHECK SUM. 



BCD CHECK SUMMING IS DONE BY AN ADD-AND-CARRY-LOGICAL AND COMPLE 



u 



u 



n 



01365 


276031626024 


01366 


464525602270 


01367 


602145602124 


01370 


244021452440 


01371 


232151517040 


01372 


434627312321 


01373 


436021452460 


01374 


234644474325 


01375 


442545633360 


01376 


603163603162 


01377 


604546636062 


01400 


634651252433 


01401 


606026316525 


01402 


602163632544 


01403 


476362606060 


01404 


606060606060 


01405 


606060606060 


01406 


606060606060 


01407 


302165256022 


01410 


252545604421 


01411 


242560634660 


01412 


512521246063 


01413 


302560254563 


01414 


315125606321 


01415 


224325602346 


01416 


515125236343 


01417 


703360606060 


01420 


606060606060 


01421 


00000 00000 X 




00000 



BCD MENT* IT IS NOT STORED. FIVE ATTEMPTS 



BCD HAVE BEEN MADE TO READ THE ENTIRE TABLE CORRECTLY. 



END 



OGZ. L 



1 




ORG 60 


1 




00074 




00074 


01303 01420 
01303 


TD 


01303 


3 00000 00074 




01304 


07400 4 00740 




01305 


C 01244 01237 




01306 


07400 4 00740 




01307 


01421 01311 




01310 


02000 00221 




01311 


606060606060 




01312 


606060606060 




01313 


233025234260 




01314 


626444602551 




01315 


514651603145 




01316 


605125212431 




01317 


452760243144 




01320 


036063212243 




01321 


256026514644 




01322 


602451644460 




01323 


033360602346 




01324 


477060434646 




01325 


476022252731 




01326 


456260216360 




01327 


434623216331 




01330 


464560010401 




01331 


033360606263 




01332 


215163314527 




01333 


602451644460 




01334 


606060606060 




01335 


606060606060 




01336 


606060606060 




01337 


212424512562 




01340 


626031626031 




01341 


456006020633 




01342 


606063302560 




01343 


632122432560 




01344 


316260234644 




01345 


474662252460 




01346 


462660633051 




01347 


252560664651 




01350 


246025456351 




01351 


312562736025 




01352 


212330602545 




01353 


635170602646 




^)1354 


434346662524 




01355 


602270603163 




01356 


626046664560 




01357 


233025234260 




01360 


626444336060 




01361 


606060606060 




01362 


606060606060 




01363 


233025234260 




01364 


626444443145 



FORCE NEW RECORD 
CARD FOR DE 

1444 FT 22 



PR 



FORCE NEW RECORD 
ORG 60 

HTR X-1»0»L0CREC 
ORG LOCREC 
TXH 60 
TSX PRINT«4 
HTR MACHIN>0#MACHIN+5 
TSX PRINT»4 
HTR PR»0*PR+72 
TRA DIGRTN 
BCD 2 



BCD CHECK SUM ERROR IN READING DIMS TABLE FROM DRUM 3« COPY LOO 



BCD P BEGINS AT LOCATION 1413» STARTING DRUM 



BCD ADDRESS IS IN 626» THE TABLE IS. COMPOSED OF THREE WORD ENTR 



BCD IES» EACH ENTRY FOLLOWED BY ITS OWN CHECK. SUM, 



BCD CHECK SUMMING IS DONE BY AN ADD-AND-CARRY-LOGICAL AND COMPLE 



u 



u 



01365 276031626024 

01366 464525602270 

01367 602145602124 

01370 244021452440 

01371 232151517040 

01372 434627312321 

01373 436021452460 

01374 234644474325 

01375 442545633360 

01376 603163603162 

01377 604546636062 

01400 634651252433 

01401 606026316525 

01402 602163632544 

01403 476362606060 

01404 606060606060 

01405 606060606060 

01406 606060606060 

01407 302165256022 

01410 252545604421 

01411 242560634660 

01412 512521246063 

01413 302560254563 

01414 315125606321 

01415 224325602346 

01416 515125236343 

01417 703360606060 

01420 606060606060 

01421 00000 00000 

00000 



BCD MENT. IT IS NOT STORED. FIVE ATTEMPTS 



BCD HAVE BEEN MADE TO READ THE ENTIRE TABLE CORRECTLY, 



END 



/' V 



CL L 



TD 



ORG 61 
00075 01303 



00075 
01350 
01303 
00075 
00740 
01237 
00740 
01311 
00221 



01303 3 00000 

01304 07400 4 

01305 01244 

01306 07400 4 

01307 01351 

01310 02000 

01311 606060606060 

01312 606060606060 

01313 632147256023 

01314 302523426031 

01315 456051252124 

01316 314527606331 

01317 262746606321 

01320 224325736063 

01321 214725600273 

01322 602631432560 

01323 057360512523 

01324 465124600633 

01325 606023464770 

01326 604346464760 

01327 222527314562 

01330 602163604346 

01331 232163314645 

01332 600707013360 

01333 606060606060 

01334 606060606060 

01335 606060606060 

01336 606060606060 

01337 263165256021 

01340 636325444763 

01341 626030216525 

01342 602225254560 

01343 442124256063 

01344 466051252124 

01345 606330316260 

01346 512523465124 

01347 602346515125 

01350 236343703360 

01351 00000 00000 

00000 



PR 



FORCE 


NEW RECORD 


ORG 


61 


HTR 


X-1»Q»L0CREC 


ORG 


LOCREC 


TXH 


61 


TSX 


PRINT»4 


HTR 


MACHlN»0»MACHIN+5 


TSX 


PRINT»4 


HTR 


PR»0»PR+32 


TRA 


DIGRTN 


BCD 


2 


BCD 


TAPE CHECK IN RE 



FORCE NEW RECORD 
CARD FOR DE 

1031 FT 24 



READING TIFGO TABLE* TAPE 2» FILE 5i RECORD 6. 



BCD 



COPY LOOP BEGINS AT LOCATION 771* 



BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY. 



END 



If * 



(J 



o 



'"-\ 



ORG 62 
00076 01303 



00076 
01350 
01303 
00076 
00740 
01237 
00740 
01311 
00221 



TO 01303 3 00000 

01304 07400 4 

01305 01244 

01306 07400 4 

01307 01351 

01310 02000 

01311 606060606060 

01312 606060606060 

01313 632147256023 

01314 302523426031 

01315 456051252124 

01316 314527602160 

01317 233163605125 

01320 234651246026 

01321 514644606321 

01322 472560033360 

01323 602346477060 

01324 434646476022 

01325 252731456260 

01326 216360434623 

01327 216331464560 

01330 010107033360 

01331 606060606060 

01332 606060606060 

01333 606060606060 

01334 606060606060 

01335 606060606060 

01336 606060606060 

01337 263165256021 

01340 636325444763 

01341 626030216525 

01342 602225254560 

01343 442124256063 

01344 466051252124 

01345 606330316260 

01346 512523465124 

01347 602346515125 

01350 236343703360 

01351 00000 00000 
A 00000 



PR 



FORCE NEW RECORD 
ORG 62 

HTR X-1*0»L0CREC 
ORG LOCREC 
TXH 62 
TSX PR I NT f 4 
HTR MACHINtO»MACHIN+5 
TSX PRINTt4 
HTR PR»0#PR+32 
TRA DJGRTN 
BCD 2 



FORCE NEW RECORD 
CARD FOR DE 

1221 FT 22 



BCD TAPE CHECK IN READING A CIT RECORD FROM TAPE 3. COPY LOOP B 



BCD EGINS AT LOCATION 1173» 



BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY. 



END 



„•'/ 



3GL L 



1 




ORG 63 


1 




00077 


• 


00077 


01303 01422 
01303 


TD 


01303 


3 00000 00077 




01304 


07400 4 00740 




01305 


01244 01237 




01306 


07400 4 00740 




01307 


01423 01311 




01310 


02000 00221 




01311 


606060606060 




01312 


606060606060 




01313 


632147256023 




01314 


302523426031 




01315 


456051252124 




01316 


314527602160 




01317 


512523465124 




01320 


602651464460 




01321 


632147256002 




01322 


336060633031 




01323 


626051252346 




01324 


512460316260 




01325 


216063212243 




01326 


256021626225 




01327 


442243252460 




01330 


227060622523 




01331 


633146456001 




01332 


604751314425 




01333 


606060606060 




01334 


606060606060 




01335 


606060606060 




01336 


606060606060 




01337 


265146446025 




01340 


456351312562 




01341 


604645606321 




01342 


472560036031 




01343 


456346602160 




01344 


226426262551 




01345 


602145246066 




01346 


513163632545 




01347 


604645606321 




01350 


472560023360 




01351 


606264225146 




01352 


646331452560 




01353 


663031233060 




01354 


665131632562 




01355 


606330256063 




01356 


214725602225 




01357 


273145626021 




01360 


636060606060 




01361 


606060606060 


* ■ 


01362 


606060606060 




01363 


434623216331 




01364 


464560070605 



PR 



FORCE "NEW RECORD 
CARD FOR DE 

7720 FT 21 



FORCE NEW RECORD 
ORG 63 

HTR X-1»0»L0CREC 
ORG LOCREC 
TXH 63 
TSX PRINT»4 
HTR MACHIN»0»MACHIN+5 
TSX PRINT»4 
HTR PR»0»PR+74 
TRA DIGRTN 
BCD 2 

BCD TAPE CHECK IN READING A RECORD FROM TAPE 2« THIS RECORD IS 



BCD A TABLE ASSEMBLED BY SECTION 1 PRIME 



BCD FROM ENTRIES ON TAPE 3 INTO A BUFFER AND WRITTEN ON TAPE 2. 



BCD SUBROUTINE WHICH WRITES THE TAPE BEGINS AT 



BCD LOCATION 7656. THE RECORD HAS BEEN READ BACK INTO LOCATION 



!•"/ 



o 



U 



01365 


063360606330 


01366 


256051252346 


01367 


512460302162 


01370 


602225254560 


01371 


512521246022 


01372 


212342603145 


01373 


634660434623 


01374 


216331464560 


01375 


070603026021 


01376 


452460633025 


01377 


605163636031 


01400 


456263516423 


01401 


633146456030 


01402 


216260262131 


01403 


432524606060 


01404 


606060606060 


01405 


606060606060 


01406 


606060606060 


01407 


252123306063 


01410 


314425336060 


01411 


263165256021 


01412 


636325444763 


01413 


626030216525 


01414 


602225254560 


01415 


442124256063 


01416 


466066513163 


01417 


256063303162 


01420 


605125234651 


01421 


246023465151 


01422 


252363437033 


01423 


00000 00000 




00000 



BCD 7632 AND THE RTT INSTRUCTION HAS FAILED 



BCD EACH TIME. FIVE ATTEMPTS HAVE BEEN MADE TO WRITE THIS RECOR 



BCD 2D CORRECTLY. 



END 



\'<> 



OL L 



1 




ORG 64 


1 




00100 




00100 


01303 01422 
01303 


TD 


01303 


3 00000 00100 




01304 


07400 4 00740 




01305 


01244 01237 




01306 


07400 4 00740 




01307 


01423 01311 




01310 


02000 00221 




01311 


606060606060 




01312 


606060606060 




01313 


632147256023 




01314 


302523426031 




01315 


456051252124 




01316 


314527602160 




01317 


512523465124 




01320 


602651464460 




01321 


632147256004 




01322 


336060633031 




01323 


626051252346 




01324 


512460316260 




01325 


216063212243 




01326 


256031242545 




01327 


633126312321 




01330 


633146456066 




01331 


465124602145 




01332 


246021456025 




01333 


456351706060 




01334 


606060606060 




01335 


606060606060 




01336 


606060606060 




01337 


442124256022 




01340 


706062252363 




01341 


314645600160 




01342 


464560632147 




01343 


256004336060 




01344 


622523633146 




01345 


456001604751 




01346 


314425603162 




01347 


602163632544 




01350 


476331452760 




01351 


634660476463 




01352 


602143436063 




01353 


302560623144 




01354 


314321516025 




01355 


456351312562 




01356 


603145634660 




01357 


464525606060 




01360 


606060606060 




01361 


606060606060 




01362 


606060606060 




01363 


226426262551 




01364 


602225264651 



PR 



FORCE NEW RECORD 
CARD FOR DE 

7627 FT 21 



FORCE NEW RECORD 
ORG 64 

HTR X-1»0#LOCREC 
ORG LOCREC 
TXH 64 
TSX PRINTf4 
HTR MACHlN»0»MACHIN+5 
TSX PRINTt4 
HTR PR*0tPR+74 
TRA DIGRTN 
BCD 2 

BCD TAPE CHECK IN READING A RECORD FROM TAPE 4. THIS RECORD IS 



BCD A TABLE IDENTIFICATION WORD AND AN ENTRY 



BCD MADE BY SECTION 1 ON TAPE 4« SECTION 1 PRIME IS ATTEMPTING 



BCD TO PUT ALL THE SIMILAR ENTRIES INTO ONE 



BCD BUFFER BEFORE WRITING THE TABLE ON TAPE 2. COPY LOOP BEGINS 



//£•' 



u 



u 



01365 256066513163 

01366 314527606330 

01367 256063212243 

01370 256046456063 

01371 214725600233 

01372 606023464770 

01373 604346464760 

01374 222527314562 

01375 602163604346 

01376 232163314645 

01377 600705050033 

01400 606051252346 

01401 512460 312425 

01402 456331263123 

01403 216331464560 

01404 606060606060 

01405 606060606060 

01406 606060606060 

01407 316260216360 

01410 070603013360 

01411 602631652560 

01412 216363254447 

01413 636260302165 

01414 256022252545 

01415 604421242560 

01416 634660512521 

01417 246063303162 

01420 605125234651 

01421 246023465151 

01422 252363437033 

01423 00000 00000 X 

00000 



BCD AT LOCATION 7550. RECORD IDENTIFICATION 



8CD IS AT 7631. FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECOR 



BCD 2D CORRECTLY. 



END 



TD 





ORG 65 




00101 


00101 


01303 01350 




01303 


01303 


3 00000 00101 


01304 


07400 4 00740 


01305 


01244 01237 


01306 


07400 4 00740 


01307 


01351 01311 


01310 


02000 00221 


01311 


606060606060 


01312 


606060606060 


01313 


632147256023 


01314 


302523426031 


01315 


456051252124 


01316 


314527600260 


01317 


664651246051 


01320 


252346512460 


01321 


265146446063 


01322 


214725600273 


01323 


602631432560 


01324 


073360602346 


01325 


477060434646 


01326 


476031626021 


01327 


636043462321 


01330 


633146456003 


01331 


003360606060 


01332 


606060606060 


01333 


606060606060 


01334 


606060606060 


01335 


606060606060 


01336 


606060606060 


01337 


263165256021 


01340 


636325444763 


01341 


626030216525 


01342 


602225254560 


01343 


442124256063 


01344 


466051252124 


01345 


606330316260 


01346 


512523465124 


01347 


602346515125 


01350 


236343703360 


01351 


00000 00000 




00000 



PR 



FORCE NEW RECORD 
CARD FOR DE 

61 FT 47 



FORCE NEW RECORD 
ORG 65 

HTR X-1*0*L0CREC 
ORG LOCREC 
TXH 65 
TSX PRINT»4 
HTR MACHlN,0»MACHIN+5 
TSX PRINTf4 
HTR PR»0*PR+32 
TRA DIGRTN 
BCD 2 

BCD TAPE CHECK IN READING 2 WORD RECORD FROM TAPE 2t FILE 7. CO 



BCD PY LOOP IS AT LOCATION 30. 



BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY, 



END 



\U* 



3 



U 



U 



1 ORG 66 

1 00102 

00102 01303 01350 

01303 

TO 01303 3 00000 00102 

01304 07400* 4 00740 

01305 01244 01237 

01306 07400 4 00740 

01307 01351 01311 

01310 02000 00221 

01311 606060606060 

01312 606060606060 

01313 632147256023 

01314 302523426031 

01315 456051252124 

01316 314527605125 

01317 234651246026 

01320 514644606321 

01321 472560037360 

01322 263143256001 

01323 336060234647 

01324 706043464647 

01325 603162602163 

01326 604346232163 

01327 314645600501 

01330 336060606060 

01331 606060606060 

01332 606060606060 

01333 606060606060 

01334 606060606060 

01335 606060606060 

01336 606060606060 

01337 263165256021 

01340 636325444763 

01341 626030216525 

01342 602225254560 

01343 442124256063 

01344 466051252124 

01345 606330316260 

01346 512523465124 

01347 602346515125 

01350 236343703360 

01351 00000 00000 
a 00000 



PR 



FORCE NEW RECORD 
ORG 66 , 
HTR X-1#0*LOCREC 
ORG LOCREC 
TXH 66 
66 
TSX PRINTt4 
HTR MACHIN*0»MACHIN+5 
TSX PRINT»4 
HTR PR»0»PR+32 
TRA D1GRTN 
BCO 2 



FORCE NEW RECORD 
CARD FOR DE 



116 
132 



FT 
FT 



53 
53 



BCD 



TAPE CHECK IN READING RECORD FROM TAPE 3. FILE 1. COPY LOOP 



BCD IS AT LOCATION 51« 



BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY. 



END 



/' 



IL L 



1 


ORG 67 


FORCE 


NEW RECORD 


1 


00103 


ORG 


67 FORCE NEW RECORD 


00103 


01303 01350 


HTR 


X-1»0*LOCREC CARD FOR DE 




01303 


ORG 


LOCREC 


TO 01303 


3 00000 00103 


TXH 


67 4026 FT 51 


01304 


07400 4 00740 


TSX 


PRINT>4 


01305 


01244 01237 


HTR 


MACHlN»0»MACHIN+5 


01306 


07400 4 00740 


TSX 


PRINT#4 


01307 


01351 01311 


HTR 


PR»0*PR+32 


01310 


02000 00221 


TRA 


DIGRTN 


01311 


606060606060 PR 


BCD 


2 


01312 


606060606060 






01313 


632147256023 


BCD 


TAPE CHECK IN READING RECORD FROM 


01314 


302523426031 






01315 


456051252124 






01316 


314527605125 






01317 


234651246026 






01320 


514644606321 






01321 


472560027360 






01322 


263143256006 






01323 


336060234647 






01324 


706043464647 






01325 


603162602163 


BCD 


IS AT LOCATION 4012. 


01326 


604346232163 






01327 


314645600400 






01330 


010233606060 






01331 


606060606060 






01332 


606060606060 






01333 


606060606060 






01334 


606060606060 






01335 


606060606060 






01336 


606060606060 






01337 


263165256021 


BCD 


FIVE ATTEMPTS HAVE BEEN MADE TO RE 


O1340 


636325444763 






01341 


626030216525 






01342 


602225254560 






01343 


442124256063 






01344 


466051252124 






01345 


606330316260 






01346 


512523465124 






01347 


602346515125 






01350 


236343703360 






01351 


00000 00000 X 






A 


00000 


END 


— 



/ 



u 



u 



TO 



ORG 68 
00104 01303 



01303 
01304 
01305 
01306 
01307 
01310 
01311 
01312 
01313 
01314 
01315 
01316 
01317 
01320 
01321 
01322 
01323 
01324 
01325 
01326 
01327 
01330 
01331 
01332 
01333 
01334 
-01335 
01336 
01337 
01340 
01341 
01342 
01343 
01344 
01345 
01346 
01347 
01350 
01351 



00104 
01350 
01303 
00104 
00740 
01237 
00740 
01311 
00221 



00000 

07400 

01244 

07400 

01351 

02000 
606060606060 PR 
606060606060 
632147256023 
302523426031 
456051252124 
314527606321 
276321276051 
252346512460 
265146446063 
214725600473 
602631432560 
023360602346 
477060434646 
476031626021 
636043462321 
633146456004 
000207336060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
263165256021 
636325444763 
626030216525 
602225254560 
442124256063 
466051252124 
606330316260 
512523465124 
602346515125 
236343703360 
00000 00000 X 

00000 END 



FORCE NEW RECORD 
ORG 68 

HTR X-1*0*LOCREC 
ORG LOCREC 
TXH 68 
TSX PRINT«4 
HTR MACHIN»0*MACHIN+5 
TSX PRINT* 4 
HTR PR#0»PR+32 
TRA DIGRTN 
BCD 2 



FORCE NEW RECORD 
CARD FOR DE 

4054 FT 51 



BCD TAPE CHECK. IN READING TAGTAG RECORD FROM j TAPE 4* FILE 2. 



CO 



BCD PY LOOP IS AT LOCATION 4027. 



BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY. 



116 



1 

1 




ORG 69 

00105 




00103 


01303 01350 
01303 


TO 


01303 


3 00000 00105 




01304 


07400 4 00740 




01305 


01244 01237 




01306 


07400 4 00740 




01307 


01351 01311 




01310 


02000 00221 




01311 


606060606060 




01312 


606060606060 




01313 


632147256023 




01314 


302523426031 




01315 


456051252124 




01316 


314527602446 




01317 


632127605125 




01320 


234651246026 




01321 


514644606321 




01322 


472560037360 




01323 


263143256001 




01324 


336060234647 




01325 


706043464647 




01326 


603162602163 




01327 


604346232163 




01330 


314645600401 




01331 


010633606060 




01332 


606060606060 




01333 


606060606060 




01334 


606060606060 




01335 


606060606060 




01336 


606060606060 




01337 


263165256021 




01340 * 


636325444763 




01341 


i 626030216525 




01342 


602225254560 




01343 


442124256063 




01344 


466051252124 




01345 


606330316260 




01346 


512523465124 




01347 


602346515125 




01350 


236343703360 


A 


01351 


00000 00000 
00000 



PR 



FORCE NEW RECORD 
ORG 69 

HTR X-1»0*L0CREC 
ORG LOCREC 
TXH 69 
TSX PR I NT 1 4 
HTR MACHlN»OfMACHIN+5 
TSX PRINT#4 
HTR PR»0»PR+32 
TRA DIGRTN 
BCD 2 



FORCE NEW RECORD 
CARD FOR DE 

4155 FT 34 



BCD TAPE CHECK IN READING DOTAG RECORD FROM TAPE 3» FILE !• COP 



BCD Y LOOP IS AT LOCATION 4116. 



BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY. 



END 



•,1 



u 



u 



1 




ORG 70 


1 




00106 




00106 


01303 01350 
01303 


TD 


01303 


3 00000 00106 




01304 


07400 4 00740 




01305 


01244 01237 




• 01306 


07400 4 00740 




01307 


01351 01311 




01310 


02000 00221 




01311 


606060606060 P 




01312 


606060606060 




01313 


314523465151 




01314 


252363605125 




01315 


234651246063 




01316 


214725600273 




01317 


602631432560 




01320 


073360605125 




£.1321 


234651246031 




01322 


626002606646 




01323 


512462 736025 




01324 


212330603162 




01325 


605125234651 




01326 


246023466445 




01327 


636046266026 




01330 


314325600633 




01331 


606051252346 




0133-2 


512460302162 




01333 


602225254560 




01334 


606060606060 




01335 


606060606060 




01336 


606060606060 




01337 


512521246006 




01340 


606331442562 




01341 


602145246026 




01342 


213143252460 




01343 


252123306063 




01344 


314425606346 




01345 


602631452460 




01346 


633025606646 




01347 


512462602550 




01350 


642143336060 




01351 


00000 00000 X 


A 




00000 



FORCE NEW RECORD 
CARD FOR DE 

6744 FT 41 



FORCE NEW RECORD 
ORG 70 

HTR X-1»0*L0CREC 
ORG LOCREC 
TXH 70 
TSX PRINT»4 
HTR MACHIN*0#MACHIN+5 
TSX PRINT»4 
HTR PR*0*PR+32 
TRA DIGRTN 
BCD 2 

BCD INCORRECT RECORD TAPE 2» FILE 7. RECORD IS 2 WORDS* EACH IS 



BCD 



RECORD COUNT OF FILE 6. RECORD HAS BEEN 



BCD READ 6 TIMES AND FAILED EACH TIME TO FIND THE WORDS EQUAL. 



END 



1 




ORG 71 


1 




00107 




00107 


01303 01350 
01303 


TD 


01303 


3 00000 00107 




01304 


07400 4 00740 




01305 


01244 01237 




01306 


07400 4 0074C 




01307 


01351 01311 




01310 


02000 00221 




01311 


606060606060 P 




01312 


606060606060 




01313 


632147256023 




01314 


302523426031 




01315 


456051252124 




01316 


314527602446 




01317 


632127605125 




01320 


234651246026 




01321 


514644606321 




01322 


472560027360 




01323 


263143256006 




01324 


336060234647 




01325 


706043464647 




01326 


603162602163 




01327 


604346232163 




01330 


314645600&07 




01331 


030033606060 




01332 


606060606060 




01333 


606060606060 




01334 


606060606060 




01335 


606060606060 




01336 


606060606060 




01337 


263165256021 




01340 


636325444763 




01341 


626030216525 




01342 


602225254560 




01343 


442124256063 




01344 


466051252124 




01345 


606330316260 




01346 


512523465124 




01347 


602346515125 




01350 


236343703360 




01351 


00000 00000 X 


A 




OOOOO 



FORCE NEW RECORD 
CARD FOR DE 

6767 FT 39 



FORCE NEW RECORD 
ORG 71 

HTR X-1»0*LQCREC 
ORG LOCREC 
TXH 71 
TSX PRINT*4 
HTR MACHIN»0»MACHIN+5 
TSX PRINT»4 
HTR PR*G»PR+32 
TRA DIGRTN 
BCD 2 

BCD TAPE CHECK IN READING DOTAG RECORD FROM TAPE 2» FILE 6. CO? 



BCD Y LOOP IS AT LOCATION 6730, 



BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY. 



END 



u 



u 



1 


ORG 72 


1 


00110 


00110 


01303 01413 




01303 


TO 01303 


3 00000 00110 


01304 


07400 4 00740 


01305 


01244 01237 


01306 


07400 4 00740 


01307 


01414 01311 


01310 


02000 00221 


01311 


606060606060 


01312 


606060606060 


01313 


632147256023 


01314 


302523426031 


01315 


456051252124 


01316 


314527602446 


01317 


632127605125 


01320 


234651246026 


01321 


514644606321 


01322 


472560037360 


01323 


263143256001 


01324 


336060512523 


01325 


465124602346 


01326 


456321314562 


01327 


602160456444 


01330 


222551604626 


01331 


601160664651 


01332 


246025456351 


01333 


312562336060 


01334 


606060606060 


01335 


606060606060 


01336 


606060606060 


01337 


234647706043 


01340 


464647602163 


01341 


604346232163 


01342 


314645600700 


01343 


040360512521 


01344 


246260464543 


01345 


706026315162 


01346 


636021452460 


01347 


622523464524 


01350 


606646512460 


01351 


462660252123 


01352 


306025456351 


01353 


707360234647 


01354 


706021636043 


01355 


462321633146 


01356 


456007000504 


01357 


602346473125 


01360 


626060606060 


01361 


606060606060 


01362 


606060606060 


01363 


466330255160 


01364 


076066465124 



FORCE NEW RECORD 
CARD FOR DE 

7070 FT 36 



PR 



FORCE NEW RECORD 
ORG 72 

HTR X-ltO»LOCREC 
ORG LOCREC 
TXH 72 
TSX PRINTf4 
HTR MACHlN»0»MACHIN+5 
TSX PRINT#4 
HTR PRtOtPR+67 
TRA DIGRTN 
BCD 2 

BCD TAPE CHECK IN READING DOTAG RECORD FROM TAPE 3» FILE !• REC 



BCD ORD CONTAINS A NUMBER OF 9 WORD ENTRIES* 



BCD COPY LOOP AT LOCATION 7043 READS ONLY FIRST AND SECOND WORD 



BCD OF EACH ENTRY* COPY AT LOCATION 7054 COPIES 



BCD OTHER 7 WORDS INTO ERASABLE STORAGE AND RETURNS TO 7043 FOR 



IL L 



01365 


626031456346 


01366 


602551216221 


01367 


224325606263 


01370 


465121272560 


01371 


214524605125 


01372 


636451456260 


01373 


634660070004 


01374 


036026465160 


01375 


452567636025 


01376 


456351703360 


01377 


602631652560 


01400 


216363254447 


01401 


636260302165 


01402 


256022252545 


01403 


604421242560 


01404 


606060606060 


01405 


606060606060 


01406 


606060606060 


01407 


634660512521 


01410 


246063303162 


01411 


605125234651 


•01412 


246023465151 


01413 


252363437033 


01414 


00000 00000 




00000 



BCD NEXT ENTRY. FIVE ATTEMPTS HAVE BEEN MADE 



BCD 5TO READ THIS RECORD CORRECTLY* 



END 



V 



U 



u 



1 ORG 73 

1 00111 

00111 01303*0 01554 



TD 



01303 
01304 
01305 
01306 
01307 
01310 
01311 
01312 
01313 
01314 
01315 
01316 
01317 
01320 
01321 
01322 
01323 
01324 
01325 
01326 
01327 
01330 
01331 
01332 
01333 
01334 
01335 
01336 
01337 
01340 
01341 
01342 
01343 
01344 
01345 
01346 
01347 
01350 
01351 
01352 
01353 
01354 
01355 
01356 
01357 
01360 
01361 
01362 
01363 
01364 



3 00000 
07400 4 
01244 
-0 53400 4 
50000 
34000 4 
02000 
02000 
00003 4 
-3 00017 4 
07400 4 
01454 
00000 
606060606060 
606060606060 
434623216331 
464560462660 
255151465173 
606630312330 
603021626022 
252545604751 
314563252473 
603021626023 
216462252460 
243121274546 
626331236051 
252346512460 
456444222551 
600703606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
634660222560 
512521246031 
453360606330 
316260512523 
465124602346 
444721512562 
606330256031 
242545633126 
312321633146 
456066465124 
604626602160 
632147256051 
252346512473 
604346232163 
314645600701 



01303 

00111 

00740 

01237 

01232 

07125 

01514 C 

01313 

01454 

01314 A 

01310 B 

00740 

01320 

01472 

ER 



FORCE NEW RECORD 
ORG 73 

HTR X-l»0»LOCREC 
ORG LOCREC 
TXH 73 
TSX PRINT»4 
HTR MACHlN»0*MACHIN+5 
LXD ZERO»4 
CLA 3669 
CAS TABLE #4 
TRA A 
TRA HAVE 
TXI Bt4»3 
TXL C#4*15 
TSX PR I NT* 4 
HTR ER»0»ER+92 
HTR 
BCD 2 



FORCE NEW RECORD 
CARD FOR DE 

7123 FT 27 



7125 OCTAL 



BCD LOCATION OF ERROR* WHICH HAS BEEN PRINTED* HAS CAUSED DIAGNO 



BCD STIC RECORD NUMBER 73 



BCD TO BE READ IN. THIS RECORD COMPARES THE IDENTIFICATION WORD 



BCD OF A TAPE RECORD* LOCATION 7125* TO A LIST 



12/ 



HL L 



01365 020573606346 

01366 602160433162 

01367 636060606060 

01370 606060606060 

01371 606060606060 

01372 462660066047 

01373 466262312243 

01374 256063214725 

01375 603124254563 

01376 312631232163 

01377 314645606646 

01400 512462736022 

01401 646360633025 

01402 606225215123 

01403 306030216260 

01404 262131432524 

01405 336060632122 

01406 432560312425 

01407 456331263123 

01410 216331464560 

01411 664651246260 

01412 606060606060 

01413 606060606060 

01414 606060606060 

01415 606060606060 

01416 215125603145 

01417 600104060373 

01420 600104060360 

01421 474364626003 

01422 736025632333 

01423 606047512562 

01424 626062632151 

01425 636031266070 

01426 466460663162 

01427 306063466051 

01430 256263465125 

01431 604421233031 

01432 452560634660 

01433 234645243163 

01434 314645603145 

01435 606630312330 

01436 606060606060 

01437 606060606060 

01440 606060606060 

01441 606060606060 

01442 255151465160 

01443 462323645151 

01444 252433606060 

01445 606060606060 

01446 606060606060 

01447 606060606060 

01450 606060606060 

01451 606060606060 

01452 606060606060 



BCD OF 6 POSSIBLE TAPE IDENTIFICATION WORDSt BUT THE SEARCH HAS 



BCD FAILED. TABLE IDENTIFICATION WORDS 



BCD ARE IN 1463t 1463 PLUS 3» ETC* PRESS START IF YOU WISH TO R 



BCD ESTORE MACHINE TO CONDITION IN WHICH 



BCD ERROR OCCURRED. 



u 



u 



01453 606060606060 

01454 56000 4.01512 HAVE LDQ 

01455 -0 50000 01522 CAL 

01456 -0 76300 00014 LGL 

01457 60200 01522 5LW 

01460 -0 76300 00030 LGL 

01461 5600O 01523 LDQ 

01462 -0 76300 00014- LGL 

01463 60200 01523 SLW 

01464 -0 50000 4 01513 CAL 

01465 56000 01531 LDQ 

01466 -0 76300 00030 LGL 

01467 6020O 01531 SLW 

01470 07400 4 00740 TSX 

01471 01555 01515 HTR 

01472 02000 00221 D TRA 

01473 264651652143 BCD 

01474 606060606011 BCD 

01475 00000 00006 HTR 

01476 264651652151 BCD 

01477 606060600100 BCD 

01500 00000 00005 HTR 

01501 264651632127 BCD 

01502 606060600101 BCD 

01503 00000 00004 HTR 

01504 606351212460 BCD 

01505 606060606007 BCD 

01506 00000 00003 HTR 

01507 606331262746 BCD 

01510 606060606006 BCD 

01511 00000 00002 HTR 

01512 606324466060 BCD 

01513 606060606010 BCD 

01514 00000 00001 TABLE HTR 

01515 606060606060 PR BCD 

01516 606060606060 

01517 632147256023 

01520 302523426031 

01521 456051252124 

01522 606031452760 PR1 

01523 605160606060 PR2 

01524 252346512473 

01525 606321472560 

01526 027360263143 

01527 256005736051 

01530 252346512460 

01531 336060236060 PR3 

01532 464770604346 

01533 464760316260 

01534 216360434623 

01535 216331464560 

01536 070006063360 

01537 606060606060 
01540 606060606060 



TABLE-2f4 

PR1 

12 

PR1 

24 

PR 2 

12 

PR2 

TABLE-1»4 

PR 3 

24 

PR3 

PRINT»4 

PR»0»PR+32 

DIGRTN 

1F0RVAL 

1 9 

6 

1F0RVAR 

1 10 

5 

1F0RTAG 



11 
TRAD 



TIFGO 

6 

TOO 



NUMBER OF RECORD IN FILE 5 
IDENTIFICATION IN RECORD 



BCD 3TAPE CHECK IN READ 



BCD 1 ING 

BCD 1 R 

BCD 5EC0RDt TAPE 2» FILE 5» RECORD 



BCD 1. C 

BCD 90PY LOOP IS AT LOCATION 7066. 



rl 



JL L 



01541 


606060606060 


01542 


606060606060 


01543 


263165256021 


01544 


636325444763 


01545 


626030216525 


01546 


602225254560 


01547 


442124256063 


01550 


466051252124 


01551 


606330316260 


01552 


512523465124 


01553 


602346515125 


01554 


236343703360 


01555 


•0 00000 00000 




00000 



BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY. 



END 



o 



o 



ymmmmBBsm 
■ ~ -• ■■■■■■■ ■ 



r\ 



TD 





ORG 74 




00112 


00112 


01303 01425 




01303 


01303 


3 00000 00112 


01304 


07400 4 00740 


01305 


01244 01237 


01306 


07400 4 00740 


01307 


01426 01311 


01310 


02000 00221 


01311 


606060606060 


01312 


606060606060 


01313 


632147256023 


01314 


302523426031 


01315 


456051252124 


01316 


314527605125 


01317 


234651246026 


01320 


514644606321 


01321 


472560023360 


01322 


602551514651 


01323 


602330252342 


01324 


314527603162 


01325 


602163604346 


01326 


232163314645 


01327 


600604736022 


01330 


646360633025 


01331 


512560215125 


01332 


606060606060 


01333 


606060606060 


01334 


606060606060 


01335 


606060606060 


01336 


606060606060 


01337 


036023464770 


01340 


604346464762 


01341 


606630312330 


01342 


606462256063 


01343 


303162602330 


01344 


252342314527 


01345 


336060434623 


01346 


216331464560 


01347 


030060634660 


01350 


512521246063 


01351 


302560016066 


01352 


465124605125 


01353 


234651246031 


01354 


456026314325 


01355 


600773606060 


01356 


606060606060 


01357 


606060606060 


01360 


606060606060 


01361 


606060606060 


01362 


606060606060 


01363 


434623216331 


01364 


464560040360 



PR 



FORCE NEW RECORD 
ORG 74 

HTR X-1»G»L0CREC 
ORG LOCREC 
TXH 74 
TSX PRINT»4 
HTR MACHIN»0«MACHIN+5 
TSX PRINT»4 
HTR PR»0»PR+77 
TRA DIGRTN 
BCD 2 



FORCE NEW RECORD 
CARD FOR DE 

74 FT 56 



BCD TAPE CHECK IN READING RECORD FROM TAPE 2. ERROR CHECKING IS 



BCD AT LOCATION 64» BUT THERE ARE 



BCD 3 COPY LOOPS WHICH USE THIS CHECKING. LOCATION 30 TO READ T 



BCD HE 1 WORD RECORD IN FILE 7t 



BCD LOCATION 43 TO READ FORTAG* THE 11TH RECORD IN FILE 5# OR LO 



L'JL L 



01365 


634660512521 


01366 


246026465163 


01367 


212773606330 


01370 


256001016330 


01371 


605125234651 


01372 


246031456026 


01373 


314325600573 


01374 


604651604346 


01375 


232163314645 


01376 


600505076063 


01377 


466051252124 


01400 


602160016066 


01401 


465124606060 


01402 


606060606060 


01403 


606060606060 


01404 


606060606060 


01405 


606060606060 


01406 


606060606060 


01407 


512523465124 


01410 


603145602631 


01411 


432560033360 


01412 


602631652560 


01413 


216363254447 


01414 


636260302163 


01415 


256022252545 


01416 


604421242560 


01417 


634660512521 


01420 


246063303162 


01421 


605125234651 


01422 


246023465151 


01423 


252363437033 


01424 


606060606060 


01425 


606060606060 


01426 


00000 00000 X 




OOOOO 



BCD CATION 557 TO READ A 1 WORD 



BCD RECORD IN FILE 3. FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS 



BCD 5 RECORD CORRECTLY. 



END 



o 



u 



TD 



ORG 75 
00113 01303 



00113 

01350 
01303 
00113 
00740 
01237 
00740 
01311 
00221 



01303 3 00000 

01304 07400 4 

01305 01244 

01306 07400 4 

01307 01351 

01310 02000 

01311 606060606060 

01312 606060606060 

01313 632147256023 

01314 302523426031 

01315 456051252124 

01316 314527606331 

01317 262746605125 

01320 234651246026 

01321 514644606321 

01322 472560027360 

01323 263143256005 

01324 736051252346 

01325 512460063360 

01326 602346477060 

01327 434646476031 

01330 626021636043 

01331 462321633146 

01332 456003020433 

01333 606060606060 

01334 606060606060 

01335 606060606060 

01336 606060606060 

01337 263165256021 

01340 636325444763 

01341 626030216525 

01342 602225254560 

01343 442124256063 

01344 466051252124 

01345 606330316260 

01346 512523465124 

01347 602346515125 

01350 236343703360 

01351 00000 00000 

00000 



PR 



FORCE NEW RECORD 
ORG 75 

HTR X-l»0»LOCREC 
ORG LOCREC 
TXH 75 
TSX PRINT#4 
HTR MACHlN»0»MACHIN+5 
TSX PRINT* 4 
HTR PR*0»PR+32 
TRA DIGRTN 
BCD 2 



FORCE NEW RECORD 
CARD FOR DE 

350 FT 58 



BCD TAPE CHECK IN READING TIFGO RECORD FROM TAPE 2» FILE 5t RECO 



BCD RD 6. COPY LOOP IS AT LOCATION 324. 



BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY. 



END 



'/ 



UL L 



1 




ORG 76 


1 




00114 




00114 


01303 01350 




* 


01303 


TD 


01303 


3 00000 00114 




01304 


07400 4 00740 




01305 


01244 01237 




01306 


07400 4 00740 




0130? 


01351 01311 




01310 


02000 00221 




01311 


606060606060 




01312 


606060606060 




01313 


632147256023 


• 


01314 


302523426031 




01315 


456051252124 




01316 


314527606351 




01317 


212460512523 




01320 


465124602651 




01321 


464460632147 




01322 


256002736026 




01323 


314325600573 




01324 


605125234651 




01325 


246007336060 




01326 


234647706043 




01327 


464647603162 




01330 


602163604346 




01331 


232163314645 




01332 


600305023360 




01333 


606060606060 




01334 


606060606060 




01335 


606060606060 




01336 


606060606060 




01337 


263165256021 




01340 


636325444763 




01341 


626030216525 




01342 


602225254560 




01343 


442124256063 




01344 


466051252124 




01345 


606330316260 




01346 


512523465124 




01347 


602346515125 




01350 


236343703360 


A 


01351 


00000 00000 
00000 



PR 



FORCE NEW RECORD 
CARD FOR DE 

375 «FT 58 



FORCE NEW RECORD 
ORG 76 

HTR X-l»OtLOCREC 
ORG LOCREC 
TXH 76 
TSX PRINT»4 
HTR MACHlN»0«MACHIN+5 
TSX PRINT»4 
HTR PR»0»PR+32 
TRA DIGRTN 
BCD 2 

BCD TAPE CHECK IN READING TRAD RECORD FROM TAPE 2» FILE 5t RECOR 



BCD D 7« COPY LOOP IS AT LOCATION 352* 



BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY. 



END 



'.'» 



(J 



o 



1 




ORG 77 


FORCE NEW RECORD 


1 




00115 


ORG 77 FORCE NEW RECORD 




00115 


01303 01350 


HTR X-1»0»LOCREC CARD FOR DE 






01303 


ORG LOCREC 


TO 


01303 


3 00000 00115 


TXH 77 410 FT 58 




01304 


07400 4 00740 


TSX PRINT»4 




01305 


01244 01237 


HTR MACHIN»0»MACHIN+5 




01306 


07400 4 00740 


TSX PRINT?4 




0130? 


01351 01311 


HTR PR»0»PR+32 




01310 


02000 Q0221 


TRA DIGRTN 




01311 


606060606060 PR 


BCD 2 




01312 


606060606060 






01313 


632147256023 


BCD TAPE CHECK IN READING THE FIRST W 




01314 


302523426031 






01315 


456051252124 






01316 


314527606330 






0131? 


256026315162 






01320 


636066465124 






01321 


604626602631 


* 




01322 


432560017360 






01323 


632147256004 






01324 


336060234647 






01325 


70604346464? 


BCD Y LOOP IS AT LOCATION 401. 




01326 


603162602163 






01327 


604346232163 






01330 


314645600400 






01331 


013360606060 






01332 


606060606060 






01333 


606060606060 






01334 


606060606060 






01335 


606060606060 






01336 


606060606060 






01337 


263165256021 


BCD FIVE ATTEMPTS HAVE BEEN MADE TO R 




01340 


636325444763 






01341 


626030216525 






01342 


602225254560 






01343 


442124256063 






01344 


466051252124 






01345 


606330316260 






01346 


464525606646 






01347 


512460234651 






01350 


512523634370 






01351 


00000 00000 X 




A 




00000 


END 



COP 



<: u l L 



1 




ORG 78 


1 




00116 




00116 


01303 01350 
01303 


TO 


01303 


3 00000 00116 




01304 


07400 4 00740 




01305 


01244 01237 




01306 


07400 4 00740 




01307 


01351 01311 




01310 


02000 00221 




01311 


606060606060 




01312 


606060606060 




01313 


632147256023 




01314 


302523426031 




01315 


456051252124 




01316 


314527606351 




01317 


214325656051 




01320 


252346512460 




01321 


265146446063 




01322 


214725600473 




01323 


602631432560 




01324 


017360512523 




01325 


465124600133 




01326 


606023464770 




01327 


604346464760 




01330 


316260216360 




01331 


434623216331 




01332 


464560040000 




01333 


336060606060 




01334 


606060606060 




01335 


606060606060 




01336 


606060606060 




01337 


263165256021 




01340 


636325444763 




01341 


626030216525 




01342 


602225254560 




01343 


442124256063 




01344 


466051252124 




01345 


606330316260 




01346 


512523465124 




01347 


602346515125 




01350 


236343703360 


A 


01351 


00000 00000 
OOQOO 



PR 



FORCE NEW RECORD 
CARD FOR DE 

430 FT 58 



FORCE NEW RECORD 

ORG 78 

HTR X-UQ.LQCREC 

ORG LOCREC 

TXH 78 

TSX PRINT»4 

HTR MACHIN#0»MACHIN+5 

TSX PRINT»4 

HTR PR»0»PR+32 

TRA DIGRTN 

BCD 2 

BCD TAPE CHECK IN READING TRALEV RECORD FROM TAPE 4» FILE !♦ REC 



BCD ORD !• COPY LOOP IS AT LOCATION 400. 



BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY, 



END 



>/ 



\J 



u 



1 
1 




ORG 79 

00117 




00117 


01303 01350 
01303 


TD 


01303 


3 00000 00117 




01304 


07400 4 00740 




01305 


01244 01237 




01306 


07400 4 00740 




01307 


01351 01311 




01310 


02000 00221 




01311 


606060606060 




01312 


606060606060 




01313 


632147256023 




01314 


302523426031 




01315 


456051252124 




01316 


314527606351 




01317 


214325656051 




01320 


252346512460 




01321 


265146446063 




01322 


214725600473 




01323 


602631432560 




01324 


017360512523 




01325 


465124600233 




01326 


606023464770 




01327 


604346464760 




01330 


316260216360 




01331 


434623216331 




01332 


464560040302 




01333 


336060606060 




01334 


606060606060 




01335 


606060606060 




01336 


606060606060 




01337 


263165256021 • 




01340 


636325444763 




01341 


626030216525 




01342 


602225254560 




01343 


442124256063 




01344 


466051252124 




01345 


606330316260 




01346 


512523465124 




01347 


602346515125 




01350 


236343703360 


A 


01351 


00000 00000 
00000 



PR 



FORCE NEW RECORD 
CARD FOR DE 

446 FT 58 



FORCE NEW RECORD 
OR6 79 

HTR X-l>0»LOCREC 
ORG LOCREC 
TXH 79 
TSX PRINT#4 
HTR MACHIN»0*MACHIN+5 
TSX PRINT»4 
HTR PR»0»PR+32 
TRA DIGRTN 
BCD 2 

BCD TAPE CHECK IN READING TRALEV RECORD FROM TAPE 4> FILE 1» REC 



BCD ORD 2. COPY LOOP IS AT LOCATION 432. 



BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY. 



END 



1/ 



'*Y 



r L 



1 




ORG 80 


FORCE 


NEW REC6RD 


1 




00120 


ORG 


80 FORCE NEW RECORD 




00120 


01303 01350 


HTR 


X-l»0#LOCREC CARD FOR DE 






01303 


ORG 


LOCREC 


TD 


01303 


3 00000 00120 


TXH 


80 510 FT 56 




01304 


07400 4 00740 


TSX 


PRINT»4 




01305 


01244 01237 


HTR 


MACHIN>0»MACHIN+5 




01306 


07400 4 00740- 


TSX 


PRINT«4 




01307 


01351 01311 


HTR 


PR»0»PR+32 




01310 


02000 00221 


TRA 


DIGRTN 




01311 


606060606060 PR 


BCD 


2 




01312 


606060606060 








01313 


632147256023 


BCD 


TAPE CHECK IN READING CIT RECORD 1 




01314 


302523426031 








01315 


456051252124 








01316 


314527602331 








01317 


636051252346 








01320 


512460265146 








01321 


446063214725 








01322 


600233602631 








01323 


432560023360 








01324 


602346477060 








01325 


434646476031 


BCD 


LOOP IS AT LOCATION 506 • 




01326 


626021636043 








01327 


462321633146 








01330 


456005000633 








01331 


606060606060 








01332 


606060606060 








01333 


606060606060 








01334 


606060606060 








01335 


606060606060 








01336 


606060606060 








01337 


263165256021 


BCD 


FIVE ATTEMPTS HAVE BEEN MADE TO RE 




01340 


636325444763 








01341 


626030216525 








01342 


602225254560 








01343 


442124256063 








01344 


466051252124 








01345 


606330316260 








01346 


512523465124 








01347 


602346515125 








01350 


236343703360 






A 


01351 


00000 00000 X 
00000 


END 





/; 



U 



<J 



1 




ORG 81 


FORCE 


NEW RECORD 




1 




00121 


ORG 


81 


FORCE NEW RECORD 




00121 


01303 01350 


HTR 


X-1»0«L0CREC 


CARD FOR DE 






01303 


ORG 


LOCREC 




TO 


01303 


3 00000 00121 


TXH 


81 


520 FT 56 




01304 


07400 4 C0740 


TSX 


PRINT»4 






01305 


01244 01237 


HTR 


MACHIN*0»MACHIN+5 




01306 


07400 4 00740 


TSX 


PRINT«4 






01307 


01351 01311 


HTR 


PR»0»PR+32 






01310 


02000 00221 


TRA 


DIGRTN 






01311 


606060606060 PR 


BCD 


2 






01312 


606060606060 










01313 


632147256023 


BCD 


TAPE CHECK IN 


READING COMPDO RECOI 




01314 


302523426031 










01315 


456051252124 










01316 


314527602346 










01317 


444724466051 










01320 


252346512460 










01321 


265146446063 










01322 


214725600473 










01323 


602631432560 










01324 


023360602346 










01325 


477060434646 


BCD 


PY LOOP IS AT 


LOCATION 516. 




01326 


476031626021 










01327 


636043462321 










01330 


633146456005 










01331 


010633606060 










01332 


606060606060 










01333 


606060606060 










01334 


606060606060 










01335 


606060606060 










01336 


606060606060 










01337 


263165256021 


BCD 


FIVE ATTEMPTS 


HAVE BEEN MADE TO RE 




01340 


636325444763 










01341 


626030216525 










01342 


602225254560 










01343 


442124256063 










01344 


466051252124 










01345 


606330316260 










01346 


512523465124 










01347 


602346515125 










01350 


236343703360 








A 


01351 


00000 00000 X 
00000 


END 







../ 



1 




ORG 82 


1 




00122 




00122 


01303 01353 
01303 


TO 


01303 


3 00000 00122 




01304 


07400 4 00740 




01305 


01244 01237 




01306 


07400 4 00740 




01307 


01354 01311 




01310 


02000 00221 




01311 


606060606060 




01312 


606060606060 




01313 


632147256023 




01314 


302523426031 




01315 


456051252124 




01316 


314527602160 




01317 


512523465124 




01320 


602651464460 




01321 


633025606331 




01322 


262746602631 




01323 


432533606063 




01324 


303162603162 




01325 


606330256010 




01326 


633060263143 




01327 


256046266063 




01330 


214725600233 




01331 


606023464770 




01332 


604346464760 




01333 


316260216360 




01334 


606060606060 




01335 


606060606060 




01336 


606060606060 




01337 


434623216331 




01340 


464560060504 




01341 


336060263165 




01342 


256021636325 




01343 


444763626030 




01344 


216525602225 




01345 


254560442124 




01346 


256063466051 




01347 


252124606330 




01350 


316260512523 




01351 


465124602346 




01352 


515125236343 




01353 


703360606060 


A 


01354 


00000 00000 
00000 



PR 



FORCE NEW RECORD 
CARD FOR DE 

674 FT 60 



FORCE NEW RECORD 
0R6 82 

HTR X-1»0»LOCREC 
ORG LOCREC 
TXH 82 
TSX PRINT»4 
HTR MACHIN»0»MACHIN+5 
TSX PRINT»4 
HTR PR»0#PR+35 
TRA DIGRTN 
BCD 2 

BCD TAPE CHECK IN READING A RECORD FROM THE TIFGO FILE. THIS IS 



BCD THE 8TH FILE OF TAPE 2* COPY LOOP IS AT 



BCD LOCATION 654« FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS REC 



BCD 30RD CORRECTLY. 



END 



/ 



u 



u 



1 




ORG 83 


1 




00123 




00123 


01303 01355 
01303 


TD 


01303 


3 00000 00123 




01304 


07400 4 00740 




01305 


01244 01237 




01306 


07400 4 00740 




0130? 


01356 01311 




01310 


02000 00221 




01311 


606060606060 




01312 


606060606060 




01313 


632147256023 




01314 


302523426031 




01315 


456051252124 




01316 


314527602160 




01317 


512523465124 




01320 


602651464460 




01321 


632147256003 




01322 


736026314325 




01323 


600133606063 




01324 


303162602631 




01325 


432560316260 




01326 


216044255127 




01327 


256046266063 




01330 


302560234644 




01331 


472131436021 




01332 


452460234644 




01333 


472446602631 




01334 


432562336060 




01335 


606060606060 




01336 


606060606060 




01337 


234647706043 




01340 


464647603162 




01341 


602163604346 




01342 


232163314645 




01343 


600700003360 




01344 


602631652560 




01345 


216363254447 




01346 


636260302165 




01347 


256022252545 




01350 


604421242560 




01351 


634660512521 




01352 


246063303162 




01353 


605125234651 




01354 


246023465151 




01355 


252363437033 


A 


01356 


00000 00000 
00000 



FORCE NEW RECORD 
CARD FOR DE 

720 FT 60 



PR 



FORCE NEW RECORD 
ORG 83 

HTR X-1»0»L0CREC 
ORG LOCREC 
TXH 83 
TSX PRINT»4 
HTR MACHIN^TrMA.CHIN+5 
TSX PRINT»4 
HTR PR»0»PR+37 
TRA DIGRTN 
BCD 2 

BCD TAPE CHECK IN READING A RECORD FROM TAPE 3» FILE 1* THIS FI 



BCD LE IS A MERGE OF THE COMPAIL AND COMPDO FILES. 



BCD COPY LOOP IS AT LOCATION 700. FIVE ATTEMPTS HAVE BEEN MADE 



BCD 5T0 READ THIS RECORD CORRECTLY. 



END 



y i 



1 




ORG 84 


FORCE 


NEW RECORD 


1 




00124 


ORG 


84 FORCE NEW RECORD 




00124 


01303 01350 


HTR 


X-1»0»L0CREC CARD FOR DE 






01303 


ORG 


LOCREC 


TO 


01303 


3 00000 00124 


TXH 


84 303 FT 73 




01304 


07400 4 00740 


TSX 


PRINT*4 




01305 


01244 01237 


HTR 


MACHIN»0»MACHIN+5 




01306 


07400 4 00740 


TSX 


PRINTt4 




01307 


01351 01311 


HTR 


PR»0»PR+32 




01310 


02000 00221 


TRA 


DIGRTN 




01311 


606060606060 PR 


BCD 


2 




01312 


606060606060 








01313 


632147256023 


BCD 


TAPE CHECK IN READING CIT RECORD* 




01314 


302523426031 








01315 


456051252124 








01316 


314527602331 








01317 


636051252346 








01320 


512473606321 








01321 


472560047360 








01322 


263143256001 








01323 


336060234647 








01324 


706043464647 








01325 


603162602163 


BCD 


IS AT LOCATION 265* 




01326 


604346232163 








01327 


314645600206 








01330 


053360606060 








01331 


606060606060 








01332 


606060606060 








01333 


606060606060 








01334 


606060606060 








01335 


606060606060 








01336 


606060606060 








01337 


263165256021 


BCD 


FIVE ATTEMPTS HAVE BEEN MADE TO RE 




01340 


636325444763 








01341 


626030216525 








01342 


602225254560 








01343 


442124256063 








01344 


466051252124 








01345 


606330316260 








01346 


512523465124 








01347 


602346515125 








01350 


236343703360 






A 


01351 


00000 00O00 X 
00000 


. END 





,7 



U 



O 



1 


ORG 85 


1 


00125 


00125 


01303 01350 




01303 


TO 01303 


3 00000 00125 


01304 


07400 4 00740 


01305 


01244 01237 


01306 


07400 4 00740 


01307 


01351 01311 


01310 


02000 00221 


01311 


606060606060 


01312 


606060606060 


01313 


632147256023 


01314 


302523426031 


01315 


456051252124 


01316 


314527602331 


01317 


636051252346 


01320 


512473606321 


01321 


472560047360 


01322 


263143256001 


01323 


336060234647 


01324 


706043464647 


01325 


603162602163 


01326 


604346232163 


01327 


314645600302 


01330 


073360606060 


01331 


606060606060 


01332 


60606060606Q 


01333 


606060606060 


01334 


606060606060 


01335 


606060606060 


01336 


606060606060 


01337 


263165256021 


01340 


636325444763 


01341 


626030216525 


01342 


602225254560 


01343 


442124256063 


01344 


466051252124 


01345 


606330316260 


01346 


512523465124 


01347 


602346515125 


01350 


236343703360 


01351 


00000 OOOQO 


A 


00000 



FORCE NEW RECORD 
CARD FOR DE 

350 FT 62 



PR 



FORCE NEW RECORD 
ORG 85 

HTR X-1»0»L0CREC 
ORG LOCREC 
TXH 85 
TSX PRINT*4 
HTR MACHIN*0»MACHIN+5 
TSX PRINTt4 
HTR PR»0#PR+32 
TRA DIGRTN 
BCD 2 

BCD TAPE CHECK IN READING CIT RECORD t TAPE 4t FILE 1* COPY LOOP 



BCD 



IS AT LOCATION 327* 



BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY* 



END 



// 



30? L 



1 


ORG 86 


1 


•00126 


00126 


01303 01350 




01303 


TD 01303 


3 00000 00126 


01304 


07400 4 00740 


01305 


01244 01237 


01306 


07400 4 00740 


01307 


01351 01311 


01310 


02000 00221 


01311 


606060606060 


01312 


606060606060 


01313 


632147256023 


01314 


302523426031 


01315 


456051252124 


01316 


314527606331 


01317 


262746605125 


01320 


234651246026 


01321 


514644606321 


01322 


472560027360 


01323 


263143256005 


01324 


736051252346 


01325 


512460063360 


01326 


602346477060 


01327 


434646476031 


01330 


626021636043 


01331 


462321633146 


01332 


456005020233 


01333 


606060606060 


01334 


606060606060 


01335 


606060606060 


01336 


606060606060 


01337 


263165256021 


01340 


636325444763 


01341 


626030216525 


01342 


602225254560 


01343 


442124256063 


01344 


466051252124 


01345 


606330316260 


01346 


512523465124 


01347 


602346515125 


01350 


236343703360 


01351 


00000 00000 


A 


00000 



PR 



FORCE NEW RECORD 
CARD FOR DE 

517 FT 62 



FORCE NEW RECORD 
ORG 86 

HTR X-l»0*LOCREC 
ORG LOCREC 
TXH 86 
TSX PRINTt4 
HTR MACHlN»0»MACHIN+5 
TSX PRINTt4 
HTR PR»0»PR+32 
TRA OIGRTN 
BCD 2 

BCD TAPE CHECK IN READING TIFGO RECORD FROM TAPE 2» FILE 5» RECO 



BCD RD 6. COPY LOOP IS AT LOCATION 522. 



BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY. 



END 



n 



U 



u 



/-*-> 



TO 





ORG 87 


FORCE 


NEW RECORD 




00127 


ORG 


87 


00127 


01303 01350 


HTR 


X-ltO»LOCREC 




01303 


ORG 


LOCREC 


01303 


3 00000 00127 


TXH 


87 


01304 


07400 4 00740 


TSX 


PRINT»4 


01305 


01244 01237 


HTR 


MACHIN»0»MACHIN+5 


01306 


07400 4 00740 


TSX 


PRINT#4 


01307 


01351 01311 


HTR 


PR»0»PR+32 


01310 


02000 00221 


TRA 


DIGRTN 


01311 


606060606060 PR 


BCD 


2 


01312 


606060606060 






01313 


632147256023 


BCD 


TAPE CHECK IN RE 


01314 


302523426031 






01315 


456051252124 






01316 


314527606351 






01317 


212460512523 






01320 


465124602651 




♦ 


01321 


464460632147 






01322 


256002736026 






01323 


314325600573 






01324 


605125234651 






01325 


246007336060 


BCD 


D ?• COPY LOOP 


01326 


234647706043 






01327 


464647603162 






01330 


602163604346 






01331 


232163314645 






01332 


600505063360 






01333 


606060606060 






01334 


606060606060 






01335 


606060606060 






01336 


606060606060 






01337 


263165256021 


BCD 


FIVE ATTEMPTS HA 


01340 


636325444763 






01341 


626030216525 






01342 


602225254560 






01343 


442124256063 






01344 


466051252124 






01345 


606330316260 






01346 


512523465124 






01347 
01350 


602346515125 
236343703360 






01351 


00000 00000 X 








00000 


END 





FORCE NEW RECORD 
CARD FOR DE 

553 FT 62 



02 L 



ORG 88 
00130 01303 



00130 
01350 
01303 
00130 
00740 
01237 
00740 
01311 
00221 



TD 01303 3 00000 

01304 07400 4 

01305 01244 

01306 07400 4 

01307 01351 

01310 02000 

01311 606060606060 

01312 606060606060 

01313 632147256023 

01314 302523426031 

01315 456051252124 

01316 314527602651 

01317 256360512523 

01320 465124602651 

01321 464460632147 

01322 256002736026 

01323 314325600573 

01324 605125234651 

01325 246001023360 

01326 602346477060 

01327 434646476031 

01330 626021636043* 

01331 462321633146 

01332 456007020133 

01333 606060606060 

01334 606060606060 

01335 606060606060 

01336 606060606060 

01337 263165256021 

01340 636325444763 

01341 626030216525 

01342 602225254560 

01343 442124256063 

01344 466051252124 

01345 606330316260 

01346 512523465124 

01347 602346515125 

01350 236343703360 

01351 00000 00000 
A 00000 



PR 



FORCE NEW RECORD 
ORG 88 

HTR X-1»0#L0CREC 
ORG LOCREC 
TXH 88 
TSX PRINT»4 
HTR MACHlN»0#MACHIN+5 
TSX PRINTt4 
HTR PR»0tPR+32 
TRA OIGRTN 
BCD 2 



FORCE NEW RECORD 
CARD FOR DE 

716 FT 62 



BCD TAPE CHECK IN READING FRET RECORD FROM TAPE 2. FILE 5# RECOR 



BCD D 12. COPY LOOP IS AT LOCATION 721. 



BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY. 



END 



U 



u 



r^\ 



ORG 89 
00131 01303 



00131 
01352 
01303 
00131 
00740 
01237 
00740 
01313 
01233 
00000 
00221 



TD 01303 3 00000 

01304 07400 4 

01305 01244 

01306 07400 4 

01307 01353 

01310 50000 

01311 62200 

01312 02000 

01313 606060606060 

01314 606060606060 

01315 632147256023 

01316 302523426031 

01317 456051252124 

01320 314527602331 

01321 636051252346 

01322 512473606321 

01323 472560047360 

01324 263143256001 

01325 336060234647 

01326 706043464647 

01327 603162602163 

01330 604346232163 

01331 314645600100 

01332 020633606060 

01333 606060606060 

01334 606060606060 

01335 606060606060 

01336 606060606060 

01337 606060606060 

01340 606060606060 

01341 263165256021 

01342 636325444763 

01343 626030216525 

01344 602225254560 

01345 442124256063 

01346 466051252124 

01347 606330316260 

01350 512523465124 

01351 602346515125 

01352 236343703360 

01353 00000 00000 
A 00000 



PR 



FORCE NEW RECORD 
ORG 89 

HTR X-l»0tLOCREC 
ORG LOCREC 
TXH 89 
TSX PRINT«4 
HTR MACHlN»0«MACHIN+5 
TSX PRINT»4 
HTR PR»0»PR+32 
CLA OECONE 
STD 

TRA DIGRTN 
BCD 2 



FORCE NEW RECORD 
CARD FOR DE 

1023 FT 64 



SET CONTROL FOR BST 



BCD TAPE CHECK IN READING CIT RECORDf TAPE 4» FILE 1. COPY LOOP 



BCD IS AT LOCATION 1026. 



BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY. 



END 



0? L 



TD 



ORG 90 
00132 01303 



00132 
01350 
01303 
00132 
00740 
01237 
00740 
01311 
00221 



01303 3 00000 

01304 07400 4 

01305 01244 

01306 07400 4 

01307 01351 

01310 02000 

01311 606060606060 

01312 606060606060 

01313 632147256023 

01314 302523426031 

01315 456051252124 

01316 314527602446 

01317 632127605125 

01320 234651247360 

01321 632147256002 

01322 736026314325 

01323 600633606023 

01324 464770604346 

01325 464760316260 

01326 216360434623 

01327 216331464560 

01330 010200003360 

01331 606060606060 

01332 606060606060 

01333 606060606060 

01334 606060606060 

01335 606060606060 

01336 606060606060 

01337 263165256021 

01340 636325444763 

01341 626030216525 

01342 602225254560 

01343 442124256063 

01344 466051252124 

01345 606330316260 

01346 512523465124 

01347 602346515125 

01350 236343703360 

01351 00000 00000 

00000 



PR 



IRCE 


NEW RECORD 


ORG 


90 


HTR 


X-UOiLOCREC 


ORG 


LOCREC 


TXH 


90 


TSX 


PRINTt4 


HTR 


MACHIN»0tMACHIN+5 


TSX 


PRINT»4 


HTR 


PR»0»PR+32 


TRA 


DIGRTN 


BCD 


2 


BCD 


TAPE CHECK IN RE 



FORCE NEW RECORD 
CARD FOR DE 

1175 FT 62 



READING DOTAG RECORDt TAPE 2» FILE 6. COPY LO 



BCD OP IS AT LOCATION 1200. 



BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY, 



END 



/-> 



u 



u 



/~\ 



ORG 91 
00133 01303 



00133 

01330 
01303 
00133 
00740 
01237 
00740 
01311 
00221 



TO 01303 3 00000 

01304 07400 4 

01305 01244 

01306 07400 4 

01307 01351 

01310 02000 

01311 606060606060 

01312 606060606060 

01313 632147256023 

01314 302523426031 

01315 456051252124 

01316 314527605125 

01317 234651246026 

01320 514644606321 

01321 472560023360 

01322 602346477060 

01323 434646476031 

01324 626021636043 

01325 462321633146 

01326 456003030033 

01327 606060606060 

01330 606060606060 

01331 606060606060 

01332 606060606060 

01333 606060606060 

01334 606060606060 

01335 606060606060 

01336 606060606060 

01337 263165256021 

01340 636325444763 

01341 626030216525 

01342 602225254560 

01343 442124256063 

01344 466051252124 

01345 606330316260 

01346 512523465124 

01347 602346515125 

01350 236343703360 

01351 00000 00000 
A 00000 



PR 



FORCfc NEW RECORD 
ORG 91 

HTR X-1»0#LOCREC 
ORG LOCREC 
TXH 91 
TSX PRINTt4 
HTR MACHIH»0fMACHIN+5 
TSX PRINT«4 
HTR PR»0#PR+32 
TRA DIGRTN 
BCD 2 



FORCE NEW RECORD 
CARD FOR DE 

327 FT 86 



BCD TAPE CHECK IN READING RECORD FROM TAPE 2. COPY LOOP IS AT L 



BCD OCATION 330. 



BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY. 



END 



8? L 



TO 



ORG 92 . 
00134 01303 



01303 
01304 
01305 
01306 
01307 
01310 
01311 
01312 
01313 
01314 
01315 
01316 
01317 
01320 
01321 
01322 
01323 
01324 
01325 
01326 
01327 
01330 
01331 
01332 
01333 
01334 
01335 
01336 
01337 
01340 
01341 
01342 
01343 
0134** 
01345 
01346 
01347 
01350 
01351 



00134 

01350 
01303 
00134 
00740 
01237 
00740 
01311 
00221 



00000 

07400 

01244 

07400 

01351 

02000 
606060606060 PR 
606060606060 

632147256023 BCD 

302523426031 
456051252124 
314527605125 
234651246026 
514644606321 
472560033360 
602346477060 
434646476031 
626021636043 
462321633146 
456003020533 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
263165256021 
636325444763 
626030216525 
602225254560 
442124256063 
466051252124 
606330316260 
512523465124 
602346515125 
236343703360 
00000 00000 X 

00000 END 



FORCE NEW RECORD 
ORG 92 

HTR X-l»0tL0CREC 
ORG LOCREC 
TXH 92 
TSX PRINT»4 
HTR MACHlN»0»MACHIN+5 
TSX PRINT#4 
HTR PR*0*PR+32 
TRA DIGRTN 
BCD 2 



FORCE NEW RECORD 
CARD FOR DE 

437 FT 84 



TAPE CHECK IN READING RECORD FROM TAPE 3. COPY LOOP IS AT L 



BCD OCATION 325. 



BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY, 



/" 



/ 



u 



u 



f^ 



1 




ORG 93 


FORCE 


NEW RECORD 


1 




00135 


ORG 


93 FORCE NEW RECORD 




00135 


01303 01350 


HTR 


X-ltO#LOCREC CARD FOR DE 






01303 


ORG 


LOCREC 


TO 


01303 


3 00000 00135 


TXH 


93 1240 FT 75 




01304 


07400 4 00740 


TSX 


PRINT.4 




01305 


01244 01237 


HTR 


MACHINt0tMACHIN+5 




01306 


07400 4 00740 


TSX 


PRINT«4 




01307 


01351 01311 


HTR 


PR»0tPR+32 




01310 


02000 00221 


TRA 


DIGRTN 




01311. 


606060606060 PR 


BCD 


2 




01312 


606060606060 








01313 


632147256023 


BCO 


TAPE CHECK IN READING RECORD FROM 




01314 


302523426031 








01315 


456051252124 . 








01316 


314527605125 








01317 


234651246026 








01320 


514644606321 








01321 


472560037360 








01322 


263143256003 








01323 


336060234647 








01324 


706043464647 








01325 


603162602163 


BCD 


IS AT LOCATION 1241* 




01326 


604346232163 








01327 


314645600102 








01330 


040133606060 








01331 


606060606060 








01332 


606060606060 








01333 


606060606060 




. 




01334 


606060606060 








01335 


606060606060 








01336 


606060606060 








01337 


263165256021 


BCD 


FIVE ATTEMPTS HAVE BEEN MADE TO RE 




01340 


636325444763 








01341 


626030216525 








01342 


602225254560 








01343 


442124256063 








01344 


466051252124 








01345 


606330316260 








01346 


512523465124 








01347 


602346515125 








01350 


236343703360 








01351 


00000 00000 X 






A 




00000 


END 





tsy i 



ORG 94 
00136 01303 



00136 
01350 
01303 

00136 
00740 
01237 
00740 
01311 
00221 



TO 01303 3 00000 

01304 07400 4 

01305 01244 

01306 07400 4 

01307 01351 

01310 02000 

01311 606060606060 

01312 606060606060 

01313 632147256023 

01314 302523426031 
01315* 456051252124 

01316 314527605125 

01317 234651246026 

01320 514644606321 

01321 472560043360 

01322 602346477060 

01323 434646476031 

01324 626021636043 

01325 462321633146 

01326 456003050304 

01327 336060606060 

01330 606060606060 

01331 606060606060 

01332 606060606060 

01333 606060606060 

01334 606060606060 

01335 606060606060 

01336 606060606060 

01337 263165256021 

01340 636325444763 

01341 626030216525 

01342 602225254560 

01343 442124256063 

01344 466051252124 

01345 606330316260 

01346 512523465124 

01347 602346515125 

01350 236343703360 

01351 00000 00000 
A 00000 



PR 



FORCE NEW RECORD 
ORG 94 

HTR X-1#0»L0CREC 
ORG LOCREC 
TXH 94 
TSX PRINT»4 
HTR MACHlfU0*MACHIN+5 
TSX PRINTt4 
HTR PR»0*PR+32 
TRA DIGRTN 
BCD 2 



FORCE NEW RECORD 
CARD FOR DE 

3540 FT 88 



BCD TAPE CHECK IN READING RECORD FROM TAPE 4* COPY LOOP IS AT L 



BCD OCATION 3534. 



BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY. 



END 



u 



u 



1 


ORG 95 


FORCE 


NEW RECORD 


1 


00137 


0R6 


95 FORCE NEW RECORD 


00137 


01303 01350 


HTR 


X-l»OfLOCREC CARD FOR DE 




01303 


ORG 


LOCREC 


TO 01303 


3 00000 00137 


TXH 


95 4453 FT 88 


01304 


07400 4 00740 


TSX 


PRlNTt4 


01305 


01244 01237 


HPR 


MACHIN»0»MACHIN+5 


01306 


07400 4 00740 


TSX 


PRINT»4 


01307 


01351 01311 


HTR 


PR»0#PR+32 


01310 


02000 00221 


TRA 


DIGRTN 


01311 


606060606060 PR 


BCD 


2 


01312 


606060606060 






01313 


632147256023 


BCD 


TAPE CHECK IN READING RECORD FROM 


01314 


302523426031 






01315 


456051252124 






01316 


314527605125 




• 


01317 


234651246026 






01320 


514644606321 






01321 


472560043360 






01322 


602346477060 






01323 


434646476031 






01324 


626021636043 






01325 


462321633146 


BCD 


OCATION 4421. 


01326 


456004040201 






01327 


336060606060 






01330 


606060606060 






01331 


606060606060 






01332 


606060606060 






01333 


606060606060 






01334 


606060606060 






01335 


606060606060 






01336 


606060606060 






01337 


263165256021 


BCD 


FIVE ATTEMPTS HAVE BEEN MADE TO RE 


01340 


636325444763 






01341 


626030216525 






01342 


602225254560 






01343 


442124256063 






01344 


466051252124 






01345 


606330316260 






01346 


512523465124 






01347 


602346515125 






01350 


236343703360 






01351 


00000 00000 X 






A 


OOOOO 


END 


— 



ORG 96 
00140 01303 



00140 
01350 
01303 
00140 
00740 
01237 
00740 
01311 
00221 



TO 01303 3 00000 

01304 07400 4 

01305 01244 

01306 07400 4 

01307 01351 

01310 02000 

01311 606060606060 

01312 606060606060 

01313 632147256023 

01314 302523426031 

01315 456051252124 

01316 314527605125 

01317 234651246026 

01320 514644606321 

01321 472560033360 

01322 602346477060 

01323 434646476031 

01324 626021636043 

01325 462321633146 

01326 456003023360 

01327 606060606060 

01330 606060606060 

01331 606060606060 

01332 606060606060 

01333 606060606060 

01334 606060606060 

01335 606060606060 

01336 606060606060 

01337 263165256021 

01340 636325444763 

01341 626030216525 

01342 602225254560 

01343 442124256063 

01344 466051252124 

01345 606330316260 

01346 512523465124 

01347 602346515125 

01350 236343703360 

01351 00000 00000 
A 00000 



PR 



FORCE NEW RECORD 
ORG 96 

HTR X-1»0»LOCREC 
ORG LOCREC 
TXH 96 
TSX PRINT»4 
HTR MACHlNtO»MACHIN+5 
TSX PRINTS 
HTR PR»0»PR+32 
TRA DIGRTN 
BCD 2 



FORCE NEW RECORD 
CARD FOR DE 

46 FT 90 



BCD TAPE CHECK IN READING RECORD FROM TAPE 3» COPY LOOP IS AT L 



BCD OCATION 32. 



BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY, 



END 



I' 'I 



u 



u 



/~\ 



TO 



ORG 95 
0013? 01303 O 



00137 

01350 
01303 
00137 
00740 
01237 
00740 
01311 
00221 



01303 3 00000 

01304 07400 4 

01305 01244 

01306 07400 4 

01307 01351 

01310 02000 

01311 606060606060 

01312 606060606060 

01313 632147256023 

01314 302523426031 

01315 456051252124 

01316 314527605125 

01317 234651246026 

01320 514644606321 

01321 472560043360 

01322 602346477060 

01323 434646476031 

01324 626021636043 

01325 462321633146 

01326 456004040201 

01327 336060606060 

01330 606060606060 

01331 606060606060 

01332 606060606060 

01333 606060606060 

01334 606060606060 

01335 606060606060 

01336 606060606060 

01337 263165256021 

01340 636325444763 

01341 626030216525 

01342 602225254560 

01343 442124256063 

01344 466051252124 

01345 606330316260 

01346 512523465124 

01347 602346515125 

01350 236343703360 

01351 00000 00000 

00O00 



PR 



FORCE NEW RECORD 
CARD FOR DE 

4453 FT 88 



FORCE NEW RECORD 
ORG 95 

HTR X-1»0»L0CREC 
ORG LOCREC 
TXH 95 
TSX PRINT»4 
HPR MACHlNtOtMACHIN+5 
TSX PRlNTt4 
HTR PR#0»PR+32 
TRA DIGRTN 
BCD 2 



BCD TAPE CHECK IN READING RECORD FROM TAPE 4« COPY LOOP IS AT L 



BCD OCATION 4421. 



BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY. 



END 



1 




ORG 96 


1 




00140 




00140 


01303 01350 
01303 


TD 


01303 


3 00000 00140 




01304 


07400 4 00740 




01305 


01244 01237 




01306 


07400 4 00740 




01307 


01351 01311 




01310 


02000 00221 




01311 


606060606060 




01312 


606060606060 




01313 


632147256023 




01314 


302523426031 




01315 


456051252124 




01316 


314527605125 




01317 


234651246026 




01320 


514644606321 




01321 


472560033360 




01322 


602346477060 




01323 


434646476031 




01324 


626021636043 




01325 


462321633146 




01326 


456003023360 




01327 


606060606060 




01330 


606060606060 




01331 


606060606060 




01332 


606060606060 




01333 


606060606060 




01334 


606060606060 




01335 


606060606060 




01336 


606060606060 




01337 


263165256021 




01340 


636325444763 




01341 


626030216525 




01342 


602225254560 




01343 


442124256063 




01344 


466051252124 




01345 


606330316260 




01346 


512523465124 




01347 


602346515125 




01350 


236343703360 


A 


01351 


00000 00000 
00000 



PR 



FORCE NEW RECORD 
CARD FOR DE 

46 FT 90 



FORCE NEW RECORD 
ORG 96 

HTR X-l»0»LOCREC 
ORG LOCREC 
TXH 96 
TSX PRINT»4 
HTR MACHlNtO»MACHIN+5 
TSX PRINT»4 
HTR PR»0»PR+32 
TRA DIGRTN 
BCD 2 

BCD TAPE CHECK IN READING RECORD FROM TAPE 3. COPY LOOP IS AT L 



BCD OCATION 32* 



BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY. 



END 



U 



u 



r^\ 



1 


ORG 97 


1 


00141 


00141 


01303 01353 




01303 


TO 01303 


3 00000 00141 


01304 


07400 4 00740 


01305 


01244 01237 


01306 


07400 4 00740 


01307 


01354 01311 


01310 


02000 00221 


01311 


606060606060 


01312 


606060606060 


01313 


632147256023 


01314 


302523426031 


01315 


456051252124 


01316 


314527605125 


01317 


234651246026 


01320 


514644606321 


01321 


472560023360 


01322 


602346477060 


01323 


434646476031 


01324 


626021636043 


01325 


462321633146 


01326 


456003000460 


01327 


214524605125 


01330 


212462602651 


01331 


464460263143 


01332 


256003736060 


01333 


606060606060 


01334 


606060606060 


01335 


606060606060 


01336 


606060606060 


01337 


047360057360 


01340 


077360116046 


01341 


516001003360 


01342 


602631652560 


01343 


216363254447 


01344 


636260302165 


01345 


256022252545 


01346 


604421242560 


01347 


634660512521 


01350 


246063303162 


01351 


605125234651 


01352 


246023465151 


01353 


252363437033 


* 01354 


00000 00000 


A 


00000 



PR 



FORCE NEW RECORD 
CARD FOR DE 

330 FT 90 



FORCE NEW RECORD 
ORG 97 

HTR X~l>OtLOCREC 
ORG LOCREC 
TXH 97 
TSX PRINTt4 
HTR MACHlN»0»MACHIN+5 
TSX PRlNTf4 
HTR PR»0»PR+35 
TRA DIGRTN 
BCD 2 

BCD TAPE CHECK IN READING RECORD FROM TAPE 2* COPY LOOP IS AT L 



BCD OCATION 304 AND READS FROM FILE 3# 



BCD 4» 5. 7» 9 OR 10. FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS 



BCD 3 RECORD CORRECTLY. 



END 



1 




ORG 98 


1 




00142 




00142 


01303 01355 
01303 


TD 


01303 


3 00000 00142 




01304 


07400 4 00740 




01305 


01244 01237 




01306 


07400 4 00740 




01307 


01356 01311 




01310 


02000 00221 




01311 


606060606060 




01312 


606060606060 




01313 


632147256023 




01314 


302523426031 




01315 


456051252124 




01316 


314527606264 




01317 


225146646331 




01320 


452560242526 




01321 


314531633146 




01322 


456063212243 




01323 


256026514644 




01324 


606321472560 




01325 


027360512523 




01326 


465124600273 




01327 


602631432560 




01330 


053360606060 




01331 


606060606060 




01332 


606060606060 




01333 


606060606060 




01334 


606060606060 




01335 


606060606060 




01336 


606060606060 




01337 


234647706043 




01340 


464647603162 




01341 


602163604346 




01342 


232163314645 




01343 


600103053360 




01344 


602631652560 




01345 


216363254447 




01346 


636260302165 




01347 


256022252545 




01350 


604421242560 




01351 


634660512521 




01352 


246063303162 




01353 


605125234651 




01354 


246023465151 




01355 


252363437033 


A 


01356 


00000 00000 
00000 



PR 



FORCE NEW RECORO 
CARD FOR DE 

141 FT 92 



FORCE NEW RECORO 
ORG 98 

HTR X-1»0»LOCREC 
ORG LOCREC 
TXH 98 
TSX PRINT»4 
HTR MACHlN»0*MACHIN+5 
TSX PRINT#4 
HTR PR#0»PR+37 
TRA DIGRTN 
BCD 2 

BCD TAPE CHECK IN READING SUBROUTINE DEFINITION TABLE FROM TAPE 



BCD 2» RECORD 2t FILE 5. 



BCD COPY LOOP IS AT LOCATION 135 • FIVE ATTEMPTS HAVE BEEN MADE 



BCD 5T0 READ THIS RECORD CORRECTLY* 



END 



!■ 



u 



u 



1 


ORG 99 


FORCE 


NEW RECORD 


1 


00143 


ORG 


99 FORCE NEW RECORD 


00143 


01303 01343 


HTR 


X-l#0*LOCREC CARD FOR DE 




01303 


ORG 


LOCREC 


TO 01303 


3 00000 00143 


TXH 


99 356 FT 92 


01304 


07400 4 00740 


TSX 


PRINT»4 


01305 


01244 01237 


HTR 


MACHlN»0»MACHIN+5 


01306 


07400 4 00740 


TSX 


PRINT»4 


01307 


01344 01311 


HTR 


PR»0#PR+27 


01310 


02000 00221 


TRA 


DIGRTN 


01311 


606060606060 PR 


BCD 


2 


01312 


606060606060 






01313 


632147256023 


BCD 


TAPE CHECK IN READING CIT TABLE» 


01314 


302523426031 






01315 


456051252124 






01316 


314527602331 






01317 


636063212243 






01320 


257360632147 






01321 


256003336060 






01322 


234647706043 






01323 


464647603162 






01324 


602163604346 






01325 


232163314645 


BCD 


CATION 352* FIVE ATTEMPTS* HAVE Bt 


01326 


600305023360 






01327 


602631652560 






01330 


' 216363254447 




a 


01331 


636260302165 






01332 


256022252545 






01333 


604421242560 






01334 


634660606060 






01335 


606060606060 






01336 


606060606060 






01337 


512521246063 


BCD 


5READ THIS RECORD CORRECTLY. 


01340 


303162605125 






01341 


234651246023 






01342 


465151252363 






01343 


437033606060 






01344 


00000 00000 X 






A 


00000 


END 





i/' 



1 


ORG 100 


FORCE 


NEW RECORD 


1 


00144 


ORG 


100 FORCE NEW RECORD 


00144 


01303 01350 


HTR 


X~1»0»LOCREC CARD FOR DE 




01303 


ORG 


LOCREC 


TD 01303 


3 00000 00144 


TXH 


100 562 FT 92 


01304 


07400 4 00740 


TSX 


PRINT«4 


02305 


01244 01237 


HTR 


MACHIN»0»MACHIN+5 


01306 


07400 4 00740 


TSX 


PRINT»4 


01307 


01351 01311 


HTR 


PR»0»PR+32 


01310 


02000 00221 


TRA 


DIGRTN 


01311 


606060606060 PR 


BCD 


2 


01312 


606060606060 






01313 


632147256023 


BCD 


TAPE CHECK IN READING OP TABLE FR< 


01314 


302523426031 






01315 


456051252124 






01316 


314527604647 






01317 


606321224325 






01320 


602651464460 






01321 


632147256002 






01322 


736026314325 






01323 


600633606023 






01324 


464770604346 






01325 


464760316260 


BCD 


OP IS AT LOCATION 556. 


01326 


216360434623 






01327 


216331464560 






01330 


050506336060 






01331 


606060606060 






01332 


606060606060 






01333 


606060606060 






01334 


606060606060 






01335 


606060606060 






01336 


606060606060 






01337 


263165256021 


BCD 


FIVE ATTEMPTS HAVE BEEN MADE TO RE 


01340 


636325444763 






Q1341 


626030216525 






01342 


602225254560 






01343 


442124256063 






01344 


466051252124 






01345 


606330316260 






01346 


512523465124 






01347 


602346515125 






01350 


236343703360 






01351 


00000 00000 X 






A 


00000 


END 





u 



u 



r\ 



o 



1 


ORG 101 


1 


00145 


00145 


01303 01343 




01303 


TO 01303 


3 0O000 00145 


01304 


07400 4 00740 


01305 


01244 01237 


01306 


07400 4 00740 


01307 


01344 01311 


01310 


02000 00221 


01311 


606060606060 


• 01312 


606060606060 


01313 


632147256023 


01314 


302523426031 


01315 


456051252124 


01316 


314527602331 


01317 


636063212243 


01320 


257360632147 


01321 


256003336060 


01322 


234647706043 


01323 


464647603162 


01324 


602163604346 


01325 


232163314645 


01326 


600706013360 


01327 


602631652560 


01330 


216363254447 


01331 


636260302165 


01332 


256022252545 


01333 


604421242560 


01334 


634660606060 


01335 


606060606060 


01336 


606060606060 


01337 


512521246063 


01340 


303162605125 


01341 


234651246023 


01342 


465151252363 


01343 


437033606060 


01344 


OOOOO OOOOO 


A 


00000 



PR 



Force new record 
card for de 

765 FT 92 



FORCE NEW RECORD 

ORG 101 

HTR X-1»0»L0CREC 

ORG LOCREC 

TXH 101 

TSX PRINTt4 

HTR MACHIN*0«MACHIN+5 

TSX PRINT»4 

HTR PR»0»PR+27 

TRA DIGRTN 

BCD 2 

BCD TAPE CHECK IN READING CIT TABLE* TAPE 3. COPY LOOP IS AT LO 



BCD CATION 761. FIVE ATTEMPTS HAVE BEEN MADE TO 



BCD 5READ THIS RECORD CORRECTLY. 



END 



ll 



TD 



ORG 102 
00146 01303 



00146 
01350 
01303 
00146 
00740 
01237 
00740 
01311 
00221 



01303 3 OOOOO 

01304 07400 4 

01305 01244 

01306 07400 4 

01307 01351 

01310 02000 

01311 606060606060 

01312 606060606060 

01313 632147256023 

01314 302523426031 

01315 456051252124 

01316 314527603046 

01317 432151276063 

01320 212243256026 

01321 514644606321 

01322 472560027360 

01323 512523465124 

01324 600473602631 

01325 432560053360 

01326 602346477060 

01327 434646476031 

01330 626021636043 

01331 462321633146 

01332 456001010301 

01333 336060606060 

01334 606060606060 

01335 606060606060 

01336 606060606060 

01337 263165256021 

01340 636325444763 

01341 626030216525 

01342 602225254560 

01343 442124256063 

01344 466051252124 

01345 606330316260 

01346 512523465124 

01347 602346515125 

01350 236343703360 

01351 OOOOO OOOOO 

OOOOO 



PR 



FORCE NEW RECORD 
ORG 102 

HTR X-1»0#LOCREC 
ORG LOCREC 
TXH 102 
TSX PRINTt4 
HTR MACHIN»0>MACHIN+5 
TSX PRINT»4 
HTR PRtO»PR+32 
TRA DIGRTN 
BCD 2 



FORCE NEW RECORD 
CARD FOR DE 

1135 FT 92 



BCD TAPE CHECK IN READING HOLARG TABLE FROM TAPE 2* RECORD 4» FI 



BCD LE 5. COPY LOOP IS AT LOCATION 1131* 



BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY. 



END 



a 



/ 



u 



o 



r^ 



-^ 



TD 



ORG 103 
00147 01303 



00147 
01362 
01303 
00147 
00740 
01237 
00740 
01311 
00221 



01303 3 00000 

01304 07400 4 

01305 01244 

01306 07400 4 

01307 01363 

01310 02000 

01311 606060606060 PR 

01312 606060606060 

01313 632147256023 

01314 302523426031 
©1315 456051252124 

01316 314527605125 

01317 234651246026 

01320 51.4644606321 

01321 472560023360 

01322 602346477060 

01323 434646476031 

01324 626021636043 

01325 462321633146 

01326 456002020033 

01327 606026316525 

01330 602163632544 

01331 476362603021 

01332 652560222525 

01333 456044212425 

01334 606060606060 

01335 606060606060 

01336 606060606060 

01337 634660512521 

01340 246063303162 

01341 605125234651 

01342 246023465151 

01343 252363437033 

01344 606047514627 

01345 512144602321 

01346 454546636023 

01347 464563314564 

01350 256063466047 

01351 514623256262 

01352 604331626331 

01353 452760632147 

01354 256260264651 

01355 604664634764 

01356 633360606060 

01357 606060606060 

01360 606060606060 

01361 606060606060 

01362 606060606060 

01363 00000 00000 X 

00000 END 



FORCE NEW RECORD 
CARD FOR DE 

245 FT 9 



FORCE NEW RECORD 
ORG 103 

HTR X-U0»L0CREC 
ORG LOCREC 
TXH 103 
TSX PRINT#4 
HTR MACHIN»0«MACHIN+5 
TSX PRINT#4 
HTR PR»0»PR+42 
TRA DIGRTN 
BCD 2 

BCD TAPE CHECK IN READING RECORD FROM TAPE 2. COPY LOOP IS AT L 



BCD OCATION 220. FIVE ATTEMPTS HAVE BEEN MADE 



BCD TO READ THIS RECORD CORRECTLY. PROGRAM CANNOT CONTINUE TO P 



BCD ROCESS LISTING TAPES FOR OUTPUT. 



I ' 



1 




0R6 104 


1 




00150 




00150 


01303 01362 
01303 


TD 


01303 


3 00000 00150 




01304 


07400 4 00740 




01305 


01244 01237 




01306 


07400 4 00740 




01307 


01363 01311 




01310 


02000 00221 




01311 


606060606060 




01312 


606060606060 




01313 


632147256023 




01314 


302523426031 




01315 


456051252124 * 




01316 


314527605125 




01317 


234651246026 




01320 


514644606321 




01321 


472560023360 




01322 


602346477060 




01323 


434646476031 




01324 


626021636043 




01325 


462321633146 




01326 


456002060533 




01327 


606026316525 




01330 


602163632544 




01331 


476362603021 




01332 


652560222525 




01333 


456044212425 




01334 


606060606060 




01335 


606060606060 




01336 


606060606060 




01337 


634660512521 




01340 


246063303162 




01341 


605125234651 




01342 


246023465151 




01343 


252363437033 




01344 


606047514627 




01345 


512144602321 




01346 


454546636023 




01347 


464563314564 




01350 


256063466047 




01351 


514623256262 




01352 


604331626331 




01353 


452760632147 




01354 


256260264651 




01355 


604664634764 




01356 


633360606060 




01357 


606060606060 




01360 


606060606060 




01361 


606060606060 




01362 


606060606060 


A 


01363 


00000 00000 
00000 



FORCE NEW RECORD 
CARD FOR DE 

264 FT 7 



PR 



FORCE NEW RECORD 

ORG 104 

HTR X-l»0»LOCREC 

ORG LOCREC 

TXH 104 

TSX PRINT»4 

HTR MACHlN»0tMACHIN+5 

TSX PRINT»4 

HTR PR»0»PR+42 

TRA DIGRTN 

BCD 2 

BCD TAPE CHECK IN READING RECORD FROM TAPE 2. COPY LOOP IS AT L 



BCD OCATION 265. FIVE ATTEMPTS HAVE BEEN MADE 



BCD TO READ THIS RECORD CORRECTLY. PROGRAM CANNOT CONTINUE TO P 



BCD ROCESS LISTING TAPES FOR OUTPUT. 



END 



rv? 



o. 



u 



LV L 



1 




ORG 105 "" 


1 




00151 




00151 


01303 01374 
01303 


TD 


01303 


3 00000 00151 




01304 


07400 4 00740 




01305 


01244 01237 




01306 


07400 4 00740 




01307 


01375 01311 




01310 


02000 00221 




01311 


606060606060 




01312 


606060606060 




01313 


632147256023 




01314 


302523426031 




01315 


456051252124 




01316 


314527606321 




01317 


472560512523 




01320 


465124604626 




01321 


602321512460 




01322 


314421272560 




01323 


265146446063 




01324 


214725600333 




01325 


606023464770 




01326 


604346464760 




01327 


316260216360 




01330 


434623216331 




01331 


464560030605 




01332 


053360606060 




01333 


606060606060 




01334 


606060606060 




01335 


606060606060 




01336 


606060606060 




01337 


633031626062 




01340 


634647604421 




01341 


706021436246 




01342 


602225602464 




01343 


256063466021 




01344 


456031452346 




01345 


515125236360 




01346 


512523465124 




01347 


606630312330 




01350 


602346456321 




01351 


314562604446 




01352 


512560633021 




01353 


456002056066 




01354 


465124623360 




01355 


606060606060 




01356 


606060606060 




01357 


606060606060 




01360 


606060606060 




01361 


606060606060 




01362 


606060606060 




01363 


263165256021 



FORCE NEW RECORD 
CARD FOR .DE \ 

3730 FT 115 



PR 



FORCE NEW RECORD 
ORG 105 

HTR X-1»0»'L0CREC 
ORG LOCREC 
TXH 105 
TSX PRINT#4 
HTR MACHlN»0»MACHIN+5 
TSX PRINT*4 
HTR PR»0«PR+52 
TRA DIGRTN 
BCD 2 

BCD TAPE CHECK IN READING TAPE RECORD OF CARD IMAGE FROM TAPE 3. 



BCD COPY LOOP IS AT LOCATION 3655* 



BCD THIS STOP MAY ALSO BE DUE TO AN INCORRECT RECORD WHICH CONTA 



BCD INS MORE THAN 25 WORDS. 



BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY. 



01364 


636325444763 


01365 


626030216525 


01366 


602225254560 


01367 


442124256063 


01370 


466051252124 


01371 


606330316260 


01372 


512523465124 


01373 


602346515125 


01374 


236343703360 


01375 


00000 00000 




00000 



END 



u 



"1 



o 



o 



2 L 



1 




ORG 106 


1 




00152 




00152 


01303 01362 
01303 


TD 


01303 


3 00000 00152 




01304 


07400 4 00740 




01305 


01244 01237 




01306 


07400 4 00740 




01307 


01363 01311 




01310 


02000 00221 




01311 


606060606060 




01312 


606060606060 




01313 


632147256023 




01314 


302523426031 




01315 


456051252124 




01316 


314527605125 




01317 


234651246026 




01320 


514644606321 




01321 


472560033360 




01322 


602346477060 




01323 


434646476031 




01324 


626021636043 




01325 


462321633146 




01326 


456002060333 




01327 


606026316525 




01330 


602163632544 




01331 


476362603021 




01332 


652560222525 




01333 


456044212425 




01334 


606060606060 




01335 


606060606060 




01336 


606060606060 




01337 


634660512521 




01340 


246063303162 




01341 


605125234651 




01342 


246023465151 




01343 


252363437033 




01344 


606047514627 




01345 


512144602321 




01346 


454546636023 




01347 


464563314564 




01350 


256063466047 




01351 


514623256262 




01352 


604331626331 




01353 


452760632147 




01354 


256260264651 




01355 


604664634764 




01356 


633360606060 




01357 


606060606060 




01360 


606060606060 




01361 


606060606060 




01362 


606060606060 


A 


01363 


00000 00000 
00000 



FORCE NEW RECORD 
CARD FOR DE 

311 FT 9 



PR 



FORCE NEW RECORD 

ORG 106 

HTR X-l»0«LOCREC 

ORG LOCREC 

TXH 106 

TSX PRINT«4 

HTR MACHIN»0»MACHIN+5 

TSX PRINT»4 

HTR PR*0»PR+42 

TRA DIGRTN 

BCD 2 

BCD TAPE CHECK. IN READING RECORD FROM TAPE 3. COPY LOOP IS AT L 



BCD OCATION 263* FIVE ATTEMPTS HAVE BEEN MADE 



BCD TO READ THIS RECORD CORRECTLY. PROGRAM CANNOT CONTINUE TO P 



BCD ROCESS LISTING TAPES FOR OUTPUT. 



END 



TO 



ORG 107 



00153 01303 



00153 
01350 
01303 
00153 
00740 
01237 
00740 
01311 
00221 



01303 3 00000 

01304 07400 4 

01305 01244 

01306 07400 4 

01307 01351 

01310 02000 

01311 606060606060 PR 

01312 606060606060 

01313 632147256023 

01314 302523426031 

01315 456051252124 

01316 314527602346 
©1317 444446456063 

01320 212243256026 

01321 514644606321 

01322 472560027360 

01323 512523465124 

01324 600373602631 

01325 432560053360 

01326 602346477060 

01327 434646476031 

01330 626021636043 

01331 462321633146 

01332 456004000433 

01333 606060606060 

01334 * 606060606060 

01335 606060606060 

01336 606060606060 

01337 263165256021 

01340 636325444763 

01341 626030216525 

01342 602225254560 

01343 442124256063 

01344 466051252124 

01345 606330316260 

01346 512523465124 

01347 602346515125 

01350 236343703360 

01351 00000 00000 X 

00000 



FORCE NEW RECORD 
CARD FOR DE 

410 FT 96 



FORCE NEW RECORD 
ORG 107 

HTR X-1»0»LOCREC 
ORG LOCREC 
TXH 107 
TSX PRINTt4 
HTR MACHIN»0*MACHIN+5 
TSX PRINT»4 
HTR PR»0»PR+32 
TRA DIGRTN 
BCD 2 

BCD TAPE CHECK IN READING COMMON TABLE FROM TAPE 2t RECORD 3» FI 



BCD LE 5. COPY LOOP IS AT LOCATION 404. 



BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY. 



END 



u 



o 



r\ 



1 


ORG 108 


1 


00154 


00154 


01303 01350 




01303 


TD 01303 


3 00000 00154 


01304 


07400 4 00740 


01305 


01244 01237 


01306 


07400 4 00740 


01307 


01351 01311 


01310 


02000 00221 


01311 


606060606060 


01312 


606060606060 


01313 


632147256023 


01314 


302523426031 


01315 


456051252124 


01316 


314527606264 


01317 


222425266063 


01320 


212243256026 


01321 


514644606321 


01322 


472560027360 


01323 


512523465124 


01324 


600273602631 


01325 


432560053360 


01326 


602346477060 


01327 


434646476031 


01330 


626021636043 


01331 


462321633146 


01332 


456004050433 


01333 


606060606060 


01334 


606060606060 


01335 


606060606060 


01336 


606060606060 


01337 


263165256021 


01340 


636325444763 


01341 


626030216525 


01342 


602225254560 * 


01343 


442124256063 


01344 


466051252124 


01345 


606330316260 


01346 


512523465124 


©1347 


602346515125 


01350 


236343703360 


01351 


00000 00000 


A 


00000 



PR 



FORCE NEW RECORD 
CARD FOR DE 

460 FT 98 



FORCE NEW RECORD 

ORG 108 

HTR X-1»0»L0CREC 

ORG LOCREC 

TXH 108 

TSX PRINT»4 

HTR MACHlN»0»MACHIN+5 

TSX PRINT»4 

HTR PR»0»PR+32 

TRA DIGRTN 

BCD 2 

BCD TAPE CHECK IN READING SUBDEF TABLE FROM TAPE 2» RECORD 2* FI 



BCD LE 5. COPY LOOP IS AT LOCATION 454. 



BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY. 



END 



1 


ORG 109 


1 


00155 


00155 


01303 01350 




01303 


TD 01303 


3 00000 00155 


01304 


07400 4 00740 


01305 


01244 01237 


01306 


07400 4 00740 


01307 


01351 01311 


01310 


02000 00221 


01311 


606060606060 


01312 


606060606060 


01313 


632147256023 


01314 


302523426031 


01315 


456051252124 


01316 


314527602331 


01317 


637360632147 


01320 


256004736031 


01321 


456063302560 


01322 


622523464524 


01323 


604721626260 


01324 


462660233163 


01325 


606321472560 


01326 


512523465124 


01327 


336060234647 


01330 


706043464647 


01331 


603162602163 


01332 


604346232163 


01333 


314645600201 


01334 


073360606060 


01335 


606060606060 


01336 


606060606060 


01337 


263165256021 


01340 


636325444763 


01341 


626030216525 


01342 


602225254560 


01343 


442124256063 


01344 


466051252124 


01345 


606330316260 


01346 


512523465124 


01347 


602346515125 


01350 


236343703360 


01351 


00000 00000 


A 


00000 



PR 



FORCE NEW RECORD 
CARD FOR DE 

223 FT 113 



FORCE NEW RECORD 
ORG 109 

HTR X-1»0»L0CREC 
ORG LOCREC 
TXH 109 
TSX PRINT»4 
HTR MACHIN»Q»MACHIN+5 
TSX PRINT»4 
HTR PR»0#PR+32 
TRA DIGRTN 
BCD 2 

BCD TAPE CHECK IN READING CIT» TAPE 4t IN THE SECOND PASS OF CIT 



BCD TAPE RECORD. COPY LOOP IS AT LOCATION 217. 



BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY. 



END 



/) 



u 



s 



72 L 



TD 



ORG 110 
00156 01303 



00156 

01350 
01303 
00156 
00740 
01237 
00740 
01311 
00221 



01303 3 00000 

01304 07400 4 

01305 01244 

01306 07400 4 

01307 01351 

01310 02000 

01311 606060606060 PR 

01312 606060606060 

01313 632147256023 

01314 302523426031 

01315 456051252124 

01316 314527605125 

01317 234651246046 

01320 266023464447 

01321 314325246031 

01322 456263516423 

01323 633146456260 

01324 265146446063 

01325 214725600433 

01326 606023464770 

01327 604346464760 

01330 316260216360 

01331 434623216331 

01332 464560020501 

01333 336060606060 

01334 606060606060 

01335 606060606060 

01336 606060606060 

01337 263165256021 

01340 636325444763 

01341 626030216525 

01342 602225254560 

01343 442124256063 

01344 466051252124 

01345 606330316260 

01346 512523465124 

01347 602346515125 

01350 236343703360 

01351 00000 00000 X 

00000 . END 



FORCE NEW RECORD 
CARD FOR DE 

255 FT 103 



FORCE NEW RECORD 
ORG 110 

HTR X-1»0»LOCREC 
ORG LOCREC 
TXH 110 
TSX PRINT»4 
HTR MACHIN»0»MACHIN+5 
TSX PRINT»4 
HTR PR»0»PR+32 
TRA DIGRTN 
BCD 2 

BCD TAPE CHECK IN READING RECORD. OF COMPILED INSTRUCTIONS FROM T 



BCD APE 4. COPY LOOP IS AT LOCATION 251. 



BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY. 



>-/ 



1 




ORG 111 


1 




00157 




00157 


01303 01420 
01303 


TO 


01303 


3 OOOOO 00157 




01304 


07400 4 00740 




01305 


01244 01237 




01306 


07400 4 00740 




01307 


01421 01311 




01310 


02000 00221 




01311 


606060606060 




01312 


606060606060 




01313 


632147256002 




01314 


603162604546 




01315 


636023465151 




01316 


252363437060 




01317 


474662316331 




01320 


464525246063 




01321 


466051252124 




01322 


606331262746 




01323 


606321224325 




01324 


736026314325 




01325 


600573605125 




01326 


234651246006 




01327 


336060633025 




01330 


602646516321 




01331 


276063212243 




0x332 


257360512523 




01333 


465124600101 




01334 


736060606060 




01335 


606060606060 




01336 


606060606060 




01337 


302162604164 




01340 


626360222525 




01341 


456066513163 




01342 


632545604645 




01343 


606321472560 




01344 


023360602225 




01345 


273145453145 




01346 


276021636043 




01347 


462321633146 




01350 


456007060473 




01351 


606231676022 




01352 


626360314562 




01353 


635164236331 




01354 


464562602151 




01355 


256027316525 




01356 


456060606060 




01357 


606060606060 




01360 


606060606060 




01361 


606060606060 




01362 


606060606060 




01363 


222526465125 




01364 


606330256051 



FORCE NEW RECORD 
CARD FOR DE 

1001 FT 24 



PR 



FORCE NEW RECORD 

ORG 111 

HTR X-1»0«L0CREC 

ORG LOCREC 

TXH 111 

TSX PRINTt4 

HTR MACHIN»0#MACHIN+5 

TSX PRINT»4 

HTR PR»0»PR+72 

TRA DIGRTN 

BCD 2 

BCD TAPE 2 IS NOT CORRECTLY POSITIONED TO READ TIFGO TABLE* FILE 



BCD 5» RECORD 6. THE FORTAG TABLE* RECORD 11 » 



BCD HAS JUST BEEN WRITTEN ON TAPE 2* BEGINNING AT LOCATION 764» 



BCD SIX BST INSTRUCTIONS ARE GIVEN 



BCD BEFORE THE RDS« THE CPY AT 775 SHOWS THAT THIS RECORD IS NO 



/ 



il • 



u 



o 



o 



?? L 



01365 


246233606063 


01366 


302560234770 


01367 


602163600707 


01370 


056062304666 


01371 


626063302163 


01372 


606330316260 


01373 


512523465124 


01374 


603162604546 


01375 


636063312627 


01376 


466074312425 


01377 


456331263123 


01400 


216331464560 


01401 


664651246031 


01402 


456007070405 


01403 


343360606060 


01404 


606060606060 


01405 


606060606060 


01406 


606060606060 


01407 


633025605125 


01410 


234651246031 


01411 


242545633126 


01412 


312321633146 


01413 


456046266063 


01414 


302560632147 


01415 


256031626031 


01416 


456007070407 


01417 


336060606060 


01420 


606060606060 


01421 


00000 00000 




00000 



BCD T TIFGO (IDENTIFICATION WORD IN 7745) • 



BCD THE RECORD IDENTIFICATION OF THE TAPE IS IN 7747. 



END 



11 



TO 



ORG 112 
00160 01303 



01303 3 00000 



00160 

01346 
01303 
00160 



01304 07400 4 00740 

01305 01244 01237 

01306 07400 4 00740 

01307 01347 01311 

01310 02000 00221 

01311 606060606060 

01312 606060606060 

01313 254524604626 

01314 605125234651 

01315 246045466360 

01316 475146472551 

01317 437060512521 

01320 233025247360 

01321 632147256003 

01322 736026314325 

01323 600133606063 

01324 256263606646 

01325 512460314560 

01326 512523465124 

01327 606230466662 

01330 606330216360 

01331 234647706021 

01332 636060606060 

01333 606060606060 

01334 606060606060 

01335 606060606060 

01336 606060606060 

01337 434623216331 

01340 464560010202 

01341 606230466443 

01342 246023216462 

01343 256025452460 

01344 462660512523 

01345 465124606242 

01346 314733606060 

01347 00000 00000 

00000 



PR 



FORCE 


NEW RECORD 




ORG 


112 


FORCE NEW RECORD 


HTR 


X-l»Q»LOCREC 


CARD FOR DE 


ORG 


LOCREC 




TXH 


112 


123 FT 53 




112 


124 FT 53 


TSX 


PRINTf4 




HTR 


MACHIN»0»MACHIN+5 




TSX 


PRINT#4 




HTR 


PR»0*PR+30 




TRA 


DIGRTN 




BCD 


2 





BCD END OF RECORD NOT PROPERLY REACHED* TAPE 3» FILE 1. TEST WO 



BCD RD IN RECORD SHOWS THAT COPY AT 



BCD 8LOCATION 122 SHOULD CAUSE END OF RECORD SKIP* 



END 



n 



tl 



U 



O 



o 



1 ORG 113 

1 00161 

00161 01303 01374 

01303 

TD 01303 3 OOjDOO 00161 



01304 


07400 4 00740 


01305 


01244 01237 


01306 


07400 4 00740 


01307 


01375 01311 


01310 


02000 00221 


01311 


606060606060 


01312 


606060606060 


01313 


255151465160 


01314 


314560512521 


01315 


243145276063 


01316 


302560623145 


01317 


274325600260 


01320 


664651246051 


01321 


252346512460 


01322 


265146446063 


01323 


214725600273 


01324 


602631432560 


01325 


073360606321 


01326 


472560623046 


01327 


644324602225 


01330 


604746623163 


01331 


314645252460 


01332 


212663255160 


01333 


606060606060 


01334 


606060606060 


01335 


606060606060 


01336 


606060606060 


01337 


263143256044 


01340 


215142736026 


01341 


314325600733 


01342 


606022252731 


01343 


454531452760 


01344 


216360060703 


01345 


007360636646 


01346 


602262636062 


01347 


602151256027 


01350 


316525457360 


01351 


633025456021 


01352 


456051632260 


01353 


214524606330 


01354 


512525602347 


01355 


706062336060 


01356 


606060606060 


01357 


606060606060 


01360 


606060606060 


01361 


606060606060 


01362 


606060606060 


01363 


234647706021 



PR 



FORCE 


NEW RECORD 




ORG 


113 


FORCE NEW RECORD 


HTR 


X-l»0»LOCREC 


CARD FOR DE 


ORG 


LOCREC 




TXH 


113 


6736 FT 41 




113 


6737 FT 41 


TSX 


PRINTf4 




HTR 


MACHlN»0»MACHIN+5 




TSX 


PRINT»4 




HTR 


PR»0»PR+52 




TRA 


DIGRTN 




BCD 


2 





BCD ERROR IN READING THE SINGLE 2 WORD RECORD FROM TAPE 2* FILE 



BCD 7« TAPE SHOULD BE POSITIONED AFTER 



BCD FILE MARK* FILE 7« BEGINNING AT 6730* TWO BST S ARE GIVEN* 



BCD THEN AN RTB AND THREE CPY S» 



BCD COPY AT LOCATION 6735 SHOULD CAUSE END OF RECORD SKIP. 



7' 



01364 


636043462321 


01365 


633146456006 


01366 


070305606230 


01367 


466443246023 


01370 


216462256025 


01371 


452460462660 


01372 


512523465124 


01373 


606242314733 


01374 


606060606060 


01375 


00000 00000 X 




00000 



END 



u 



n 



u 



n 



n 



i? L 



1 




ORG 114 • 


1 




00162 




00162 


01303 01373 
01303 


TD 


01303 


3 OOOOO 00162 




01304 


07400 4 00740 




01305 


01244 01237 




01306 


07400 4 00740 




01307 


01374 01311 




01310 


02000 00221 




01311 


606060606060 




01312 


606060606060 




01313 


632147256002 




01314 


603162604546 




01315 


636047466231 




01316 


633146452524 




01317 


602346515125 




01320 


236343706063 




01321 


466051252124 




01322 


605125234651 




01323 


246026514644 




01324 


602631432560 




01325 


053360602346 




01326 


477060434646 




01327 


476021636043 




01330 


462321633146 




01331 


456007000600 




01332 


605125212462 




01333 


606060606060 




01334 


606060606060 




01335 


606060606060 




01336 


606060606060 




01337 


512523465124 




01340 


626006606330 




01341 


514664273060 




01342 


010160214524 




01343 


603021626026 




01344 


466445246063 




01345 


302163603124 




01346 


254563312631 




01347 


232163314645 




01350 


604626605125 




01351 


234651247360 




01352 


434623216331 




01353 


464560070102 




01354 


077360606060 




01355 


606060606060 




01356 


606060606060 




01357 


606060606060 




01360 


606060606060 




01361 


606060606060 




01362 


606060606060 




01363 


244625626045 




01364 


466360442163 



FORCE NEW RECORD 
CARD FOR DE 

7112 FT 27 



PR 



FORCE NEW RECORD 
ORG 114 

HTR X-1»0»L0CREC 
ORG LOCREC 
TXH 114 
TSX PRINT«4 
HTR MACHIN»0»MACHIN+5 
TSX PRINT«4 
HTR PR»0»PR+51 
TRA DIGRTN 
BCD 2 



BCD TAPE 2 IS NOT POSITIONED CORRECTLY TO READ RECORD FROM FILE 



BCD 5. COPY LOOP AT LOCATION 7060 READS 



BCD RECORDS 6 THROUGH 11 AND HAS FOUND THAT IDENTIFICATION OF RE 



BCD CORD* LOCATION 7127 ♦ 



BCD 9D0ES NOT MATCH EXPECTED IDENTIFICATION* LOCATION 7125. 



01365 


233060256747 


01366 


252363252460 


01367 


312425456331 


01370 


263123216331 


01371 


464573604346 


01372 


232163314645 


01373 


600701020533 


01374 


00000 00000 X 




00000 



END 



u 



p 



ll 



o 



n 



o 



yy l 



1 




ORG 115 


1 




00163 




00163 


01303 01420 
01303 


TO 


01303 


3 00000 00163 




01304 


07400 4 00740 




01305 


01244 01237 




01306 


07400 4 00740 




01307 


01421 01311 




01310 


02000 00221 




01311 


606060606060 




01312 


606060606060 




01313 


632147256002 




01314 


603162604546 




01315 


636023465151 




01316 


252363437060 




01317 


474662316331 




01320 


464525246063 




01321 


466051252124 




01322 


602646516321 




01323 


277360263143 




01324 


256005736051 




01325 


252346512460 




01326 


010133606051 




01327 


466463314525 




01330 


602163604346 




01331 


232163314645 




01332 


600301606060 




01333 


606060606060 




01334 


606060606060 




01335 


606060606060 


* 


01336 


606060606060 




01337 


512521246260 




01340 


633025600160 




01341 


664651246051 




01342 


252346512460 




01343 


462660263143 




01344 


256007606630 




01345 


312330603162 




01346 


605125234651 




01347 


246023466445 




01350 


636046266026 




01351 


314325600633 




01352 


606007603162 




01353 


602124242524 




01354 


606346606330 




01355 


316260234664 




01356 


456360214524 




01357 


606060606060 




01360 


606060606G60 




01361 


606060606060 




01362 


606060606060 




01363 


633025606321 




01364 


472560316260 



FORCE NEW RECORD 
CARD FOR DE 

51 FT 56 



PR 



FORCE NEW RECORD 
ORG 115 

HTR X-1»0»LDCREC 
ORG LOCREC 
TXH 115 
TSX PRINT»4 
HTR MACHIN»0«MACHIN+5 
TSX PRINT»4 
HTR PRtO»PR+72 
TRA DIGRTN 
BCD 2 

BCD TAPE 2 IS NOT CORRECTLY POSITIONED TO READ FORTAGt FILE 5t R 



BCD ECORD 11 • ROUTINE AT LOCATION 31 



BCD READS THE 1 WORD RECORD OF FILE 7 WHICH IS RECORD COUNT OF F 



BCD ILE 6, 



7 IS ADDED TO THIS COUNT AND 



BCD THE TAPE IS BACKSPACED OVER FILE 6* FILE MARK AND THE LAST 4 



01365 222123426247 

01366 212325246046 

01367 652551602631 

01370 432560067360 

01371 263143256044 

01372 215142602145 

01373 246063302560 

01374 432162636004 

01375 605125234651 

01376 246260314560 

01377 263143256005 

01400 336060512523 

01401 465124603124 

01402 254563312631 

01403 232163314645 

01404 606060606060 
014Q5 606060606060 

01406 606060606060 

01407 314560434623 

01410 216331464560 

01411 020302066062 

01412 304666626063 

01413 302163606330 

01414 316260316260 

01415 454663602646 

01416 516321276051 

01417 252346512433 

01420 606060606060 

01421 00000 00000 X 

00000 



BCD RECORDS IN FILE 5* RECORD IDENTIFICATION 



BCD IN LOCATION 2326 SHOWS THAT THIS IS NOT FORTAG RECORD. 



END 



l) 



U 



o 



^ 



3? L 



1 




ORG 116 


1 




00164 




00164 


01303 01375 
01303 


TD 


01303 


3 00000 00164 




01304 


07400 4 00740 




01305 


01244 01237 




01306 


07400 4 00740 




01307 


01376 01311 




W310 


02000 00221 




01311 


606060606060 




01312 


606060606060 




01313 


632147256002 




01314 


603162604546 




01315 


636023465151 




01316 


252363437060 




01317 


474662316331 




01320 


464525246063 




01321 


466051252124 




01322 


606331262746 




01323 


605125234651 




01324 


243360605124 




01325 


626043464647 




01326 


602163604346 




0*1327 


232163314645 




01330 


600300603021 




01331 


626062472123 




01332 


252460632147 




01333 


256002606060 




01334 


606060606060 




01335 


606060606060 




01336 


606060606060 




01337 


264651662151 




01340 


246026514644 




01341 


602225273145 




01342 


453145276046 




01343 


266003512460 




01344 


263143256063 




01345 


466022252731 




01346 


454531452760 




01347 


462660633126 




01350 


274673602631 




01351 


432560057360 




01352 


512523465124 




01353 


600633606031 




01354 


242545633126 




01355 


312321633146 




01356 


456066465124 




01357 


606060606060 




01360 


606060606060 




01361 


606060606060 




01362 


606060606060 




01363 


462660512523 




01364 


465124603145 



FORCE NEW RECORD 
CARD FOR DE 

331 FT 58 



PR 



FORCE NEW RECORD 
ORG 116 

HTR X-l#0»LOCREC 
ORG LOCREC 
TXH 116 
TSX PRINT»4 
HTR MACHIN»0»MACHIN+5 
TSX PRINT»4 
HTR PRrOtPR+53 
TRA DIGRTN 
BCD 2 

BCD TAPE 2 IS NOT CORRECTLY POSITIONED TO READ TIFGO RECORD. RD 



BCD S LOOP AT LOCATION 30 HAS SPACED TAPE 2 



BCD FORWARD FROM BEGINNING OF 3RD FILE TO BEGINNING OF TIFGOt FI 



BCD LE 5* RECORD 6. IDENTIFICATION WORD 



BCD OF RECORD IN LOCATION 5471» SHOWS THAT THIS IS NOT TIFGO REC 



/? 



01365 


604346232163 




01366 


314645600504 




01367 


070173606230- 




01370 


466662606330 




01371 


216360633031 




01372 


626031626045 




01373 


466360633126 




01374 


274660512523 




01375 


465124336060 


BCD 10RD* 


01376 


00000 00000 X 






00000 


END 



(J 



/ 



u 



r\ 



3 27 L 



1 




ORG 117 


1 




00165 




00165 


01303 01374 
01303 


TO 


01303 


3 00000 00165 




01304 


07400 4 00740 




01305 


01244 01237 




01306 


07400 4 00740 




01307 


01375 01311 




01310 


02000 00221 




01311 


606060606060 




01312 


606060606060 




01313 


632147256002 




01314 


603162604546 




01315 


636023465151 




01316 


252363437060 




01317 


474662316331 




01320 


464525246063 




01321 


466051252124 




01322 


606351212473 




01323 


602631432560 




01324 


057360512523 




01325 


465124600733 




01326 


606051252346 




01327 


512460067360 




01330 


633126274673 




01331 


603021626060 




01332 


606060606060 




01333 


606060606060 




01334 


606060606060 




01335 


606060606060 




01336 


606060606060 




01337 


416462636022 




01340 


252545605125 




01341 


212460626423 




01342 


232562622664 


# 


01343 


434370736022 




01344 


646360312425 


. - 


01345 


456331263123 




01346 


216331464560 




01347 


664651247360 




01350 


434623216331 




01351 


464560060706 




01352 


067360623046 




01353 


666260633021 




01354 


636045256763 




01355 


605125234651 




01356 


246031626045 




01357 


466360635121 




01360 


243360606060 




01361 


606060606060 




01362 


606060606060 




01363 


234647706043 




01364 


464647603162 



PR 



FORCE NEW RECORD 
CARD FOR DE 

357 FT 58 



FORCE NEW RECORD 
ORG 117 

HTR X-l»0*LOCREC 
ORG LOCREC 
TXH 117 
TSX PRINT*4 
HTR MACHlN*0*MACHIN+5 
TSX PRINTt4 
HTR PR»0*PR+52 
TRA DIGRTN 
BCD 2 

BCD TAPE 2 IS NOT CORRECTLY POSITIONED TO READ TRAD* FILE 5* REC 



BCD ORD !• RECORD 6* TIFGO* HAS 



BCD JUST BEEN READ SUCCESSFULLY* BUT IDENTIFICATION WORD* LOCATI 



BCD ON 6766* SHOWS THAT NEXT RECORD IS NOT TRAD. 



BCD COPY LOOP IS AT LOCATION 352* 



/ t 



-ii'* 



01365 602163604346 

01366 232163314645 

01367 600305023360 

01370 606060606060 

01371 606060606060 

01372 606060606060 

01373 606060606060 

01374 606060606060 

01375 00000 00000 X 

00000 END 






O (J 



^\ 



n 



3? L 



1 




ORG 118 


1 




00166 




00166 


01303 01430 
01303 


TD 


01303 


3 00000 00166 




01304 


07400 4 00740 




01305 


01244 01237 




01306 


07400 4 00740 




01307 


01431 01311 




01310 


02000 00221 




01311 


606060606060 




01312 


606060606060 




01313 


262131436451 




01314 


256063466051 




01315 


252124602346 




01316 


515125236360 




01317 


512523465124 




01320 


602651464460 




01321 


632147256002 




01322 


736026314325 




01323 


600533606063 




01324 


214725606230 




01325 


466443246022 




01326 


256047466231 




01327 


633146452524 




01330 


606346605125 




01331 


212460512523 




01332 


465124600673 




01333 


606331262746 




01334 


736060606060 




01335 


606060606060 




01336 


606060606060 




01337 


512523465124 




01340 


600773606351 




01341 


212473604651 




01342 


605125234651 




01343 


246001027360 




01344 


265125633360 




01345 


604645256046 




01346 


266063302560 




01347 


514664633145 




01350 


256260663031 




01351 


233060646225 




01352 


626031452646 




01353 


514421633146 




01354 


456026514644 




01355 


606330256225 




01356 


605125234651 




01357 


246260302162 




01360 


606060606060 




01361 


606060606060 




01362 


606060606060 




01363 


264664452460 




01364 


633021636063 



PR 



FORCE NEW RECORD 
CARD FOR DE 

524 FT 62 



FORCE NEW RECORD 
ORG 118 

HTR X-l»0»LOCREC 
ORG LOCREC 
TXH 118 
TSX PRINT»4 
HTR MACKIN»0*MACHlN+5 
TSX PRINT»4 
HTR PR»0tPR+80 
TRA DIGRTN 
BCD 2 

BCD FAILURE TO READ CORRECT RECORD FROM TAPE 2» FILE 5« TAPE SH 



BCD OULD BE POSITIONED TO READ RECORD 6* TIFGO» 



BCD RECORD 7» TRAD. OR RECORD 12* FRET. ONE OF THE ROUTINES WHI 



BCD CH USES INFORMATION FROM THESE RECORDS HAS 



BCD FOUND THAT THE IDENTIFICATION OF THE RECORD DOES NOT MATCH T 



01365 


302560312425 


01366 


456331263123 


01367 


216331464560 


01370 


462660633025 


01371 


605125234651 


01372 


246024462562 


01373 


604546636044 


01374 


216323306063 


01375 


302560256747 


01376 


252363252460 


01377 


312425456331 


01400 


263123216331 


01401 


464533606063 


01402 


302560514664 


01403 


633145256060 


01404 


606060606060 


01405 


606060606060 


01406 


606060606060 


01407 


512521243145 


01410 


276021604721 


01411 


516331236443 


01412 


215160512523 


01413 


465124603162 


01414 


602163604346 


01415 


232163314645 


01416 


600403056026 


01417 


465160633126 


01420 


274673604346 


01421 


232163314645 


01422 


600502056026 


01423 


465160635121 


01424 . 


, 247360465160 


01425 


434623216331 


01426 


464560060403 


01427 


602646516026 


01430 


512563336060 


01431 


00000 00000 




00000 



BCD HE EXPECTED IDENTIFICATION* THE ROUTINE 



BCD READING A PARTICULAR RECORD IS AT LOCATION 435 FOR TIFGO» LO 



BCD 8CATI0N 525 FOR TRAD» OR LOCATION 643 FOR FRET. 



END 



o 



u 



r\ 



? i 



ORG 119 
00167 01303 



TO 



01303 
01304 
01305 
01306 
01307 
01310 
01311 
01312 
01313 
01314 
01315 
01316 
01317 
01320 
01321 
01322 
01323 
01324 
01325 
01326 
01327 
01330 
01331 
01332 
01333 
01334 
01335 
01336 
01337 
01340 
01341 
01342 
01343 
01344 
01345 
01346 
01347 
01350 
01351 
01352 
01353 
01354 
01355 
01356 
01357 
01360 
01361 
01362 
01363 
01364 



00000 
07400 4 
01244 
76200 
46000 
70000 

-0 75400 
56000 

-0 76300 

•0 60200 

-0 76300 
07400 4 
60200 
56000 

-0 77300 

-0 50000 
76700 

-0 76300 
60200 
50000 
07400 4 
60200 
56000 

-0 50000 

-0 76300 
60200 

-0 76300 
56000 

-0 76300 
60200 
07400 4 
01443 
02000 
00000 
606060606060 
606060606060 
632147256002 
603162604546 
636023465151 
252363437060 
474662316331 
464525243360 
602364515125 
456360263143 
256005605125 
234651246031 
242545633126 
312321633146 
456031626000 
00000 00000 



00167 

01442 
01303 
00167 
00740 
01237 
00304 
01344 
01257 
00000 
01257 
00003 
01363 
00017 
00730 
01364 
01257 
00022 
00717 
00003 
00003 
01365 
01257 
00730 
01366 
01366 
01365 
00030 
01365 
00014 
00717 
00030 
01366 
00740 
01345 
00221 
00612 AA 



PR 



FORCE NEW RECORD 
ORG 119 

HTR X-ltOfLOCREC 
ORG LOCREC 
TXH 119 
TSX PRINT»4 
HTR MACHIN»0*MACHIN45 
RDR 4 
LDA AA 
CPY ERAS 
PXD OtO 
LDQ ERAS 
L6L 3 
ORS A 
LGL 15 

TSX 0CTBCDf4 
SLW B 
LDQ ERAS 
RQL 18 
CAL BLANKS 
ALS 3 
LGL 3 
SLW C 
CLA ERAS 
TSX 0CTBCDf4 
SLW D 
LDQ D 
CAL C 
LGL 24 
SLW C 
LGL 12 
LDQ BLANKS 
LGL 24 
SLW D 

TSX PRINTt4 
HTR PR»0tPR+62 
TRA DIGRTN 
HTR8612 
BCD 2 



FORCE NEW RECORD 
CARD FOR DE 

314 FT 90 



FIRST OCTAL NUMBER INTO COMMENT 



B 23456 

FIX TAG FIELD 



B 89101112 



B7B8910 



1112BBBB 



BCD TAPE 2 IS NOT CORRECTLY POSITIONED. CURRENT FILE 5 RECORD I 



BCD 2DENTIFICATI0 

A BCD IN IS 
B HTR 



~y 



01365 00000 00000 C HTR 

01366 606060606060 D BCD 5 
0136? 606060606060 

01370 606060606060 

01371 606060606060 

01372 606060606060 

01373 214524602446 

01374 256260454663 

01375 604421632330 

01376 602567472523 

01377 632524605125 

01400 234651246031 

01401 242545633126 

01402 312321633146 

01403 456066303123 

01404 306066216260 

01405 314560633025 

01406 602123236444 

01407 644321634651 

01410 602145246031 

01411 626045466360 

01412 626346512524 

01413 336060606060 

01414 606060606060 

01415 606060606060 

01416 606060606060 

01417 633031626062 

01420 642251466463 

01421 314525602225 

01422 273145626021 

01423 636003000460 

01424 214524603162 

01425 606462252460 

01426 634660512521 

01427 246031456021 

01430 457060462660 

01431 633025605125 

01432 234651246260 

01433 314560263143 

01434 256005736063 

01435 214725600233 

01436 606060606060 

01437 606060606060 

01440 606060606060 

01441 606060606060 

01442 606060606060 

01443 00000 00000 X 

00000 END 



BCD AND DOES NOT MATCH EXPECTED RECORD IDENTIFICATION WHICH WAS 



BCD IN THE ACCUMULATOR AND IS NOT STORED. 



BCD THIS SUBROUTINE BEGINS AT 304 AND IS USED TO READ IN ANY OF 



BCD THE RECORDS IN FILE 5» TAPE 2. ? 



,1 



o 



u 



n 



n 



32 L 



1 




ORG 120 


FORCE 


NEW RECORD 


1 




00170 


ORG 


120 FORCE NEW RECORD 




00170 


01303 01330 


HTR 


X-l*0»LOCREC CARD FOR DE 






01303 


ORG 


LOCREC 


TD 


01303 


3 00000 00170 


TXH 


120 36 FT 53 




01304 


07400 4 00740 


TSX 


PRINT»4 




01305 


01244 01237 


HTR 


MACHIN»0>MACHIN+5 




01306 


07400 4 00740 


TSX 


PRINTt4 




01307 


01331 01311 


HTR 


PR»0»PR+16 




01310 


02000 00221 


TRA 


DIGRTN 




01311 


606060606060 PR 


BCD 


2 




01312 


606060606060 








01313 


262143622560 


BCD 


FALSE END OF RECORDt TAPE 4. COP' 




01314 


254524604626 








01315 


605125234651 








01316 


247360632147 








01317 


256004336060 








01320 


234647706043 








01321 


464647602163 








01322 


604346232163 








01323 


314645600300 








01324 


603162606247 








01325 


212331452760 


BCD 


4ACING OVER FIRST FILE* 




01326 


466525516026 








01327 


315162636026 








01330 


314325336060 








01331 


OOOOO 00000 X 






A . 




00000 


END 


:_ . 



1.4/ 



1 




ORG 121 


FORCE 


NEW RECORD 


1 




00171 


ORG 


121 FORCE NEW RECORD 




00171 


01303 01331 


HTR 


X-l*0»LOCREC CARD FOR DE 






01303 


ORG 


LOCREC 


TD 


01303 


3 00000 00171 


TXH 


121 4417 FT 88 




01304 


07400 4 00740 


TSX 


PRINTt4 




01305 


01244 01237 


HTR 


MACHlN*0#MACHIN+5 




01306 


07400 4 00740 


TSX 


PRINTt4 




01307 


01332 01311 


HTR 


PRtOfPR+17 




01310 


02000 00221 


TRA 


DIGRTN 




01311 


606060606060 PR 


BCD 


2 




01312 


606060606060 








01313 


262143622560 


BCD 


FALSE END OF RECORD* TAPE 4. COP 




01314 


254524604626 








01315 


605125234651 








01316 


247360632147 








01317 


256004336060 








01320 


234647706043 








01321 


464647602163 








01322 


604346232163 








01323 


314645600404 








01324 


010360316260 








01325 


215151214527 


BCD 


5ARRANGED TO FIND END OF FILE. 




01326 


252460634660 








01327 


263145246025 








01330 


452460462660 








01331 


263143253360 






A 


01332 


00000 00000 X 
00000 


END 





COPY LOOP AT LOCATION 4413 IS 



o 



o 



n 



^ 



'2 L 



1 ORG 122 

1 00172 

00172 01303 01353 

01303 

TO 01303 3 00000 00172 

01304 07400 4 00740 

01305 01244 01237 

01306 07400 4 00740 

01307 01354 01311 

01310 02000 00221 

01311 606060606060 PR 

01312 606060606060 

01313 262143622560 

01314 254524604626 

01315 605125234651 

01316 246051252124 

01317 314527602446 

01320 632127605125 

01321 234651246026 

01322 514644606321 

01323 472560037360 

01324 263143256001 

01325 336060512523 

01326 465124602346 

01327 456321314562 

01330 602160456444 

01331 222551604626 

01332 601160664651 

01333 246025456351 

01334 312562336060 

01335 606060606060 

01336 606060606060 

01337 234647706043 

01340 ^64647602163 

01341 604346232163 

01342 314645600700 

01343 040360512521 

01344 246260464543 

01345 706026315162 

01346 636021452460 

01347 622523464524 

01350 606646512460 

01351 462660252123 

01352 306025456351 

01353 703360606060 

01354 00000 00000 X 
A 00000 



FORCE NEW RECORD 
ORG 122 

HTR X-l»0»LOCREC 
ORG LOCREC 
TXH 122 
122 
TSX PRINT»4 
HTR MACHIN»0»MACHIN+5 
TSX PRINT*4 
HTR PR»0»PR+35 
TRA DIGRTN 
BCD 2 



FORCE NEW RECORD 
CARD FOR DE 



7053 
7057 



FT 
FT 



36 
36 



BCD FALSE END OF RECORD READING DOTAG RECORD FROM TAPE 3* FILE 1 



BCD • RECORD CONTAINS A NUMBER OF 9 WORD ENTRIES. 



BCD COPY LOOP AT LOCATION 7043 READS ONLY FIRST AND SECOND WORD 



BCD 30F EACH ENTRY* 



END 



1 


ORG 123 


FORCE 


NEW RECORD 


1 


00173. 


ORG 


123 FORCE NEW RECORD 


00173 


01303 01350 


HTR 


X-1»0#L0CREC CARD FOR DE 




01303 


ORG 


LOCREC 


TD 01303 


3 00000 00173 


TXH 


123 7250 FT 27 


01304 


07400 4 00740 


TSX 


PRINTt4 


01305 


01244 01237 


HTR 


MACHIN»0*MACHIN+5 


01306 


07400 4 00740 


TSX 


PRINT#4 


01307 


01351 01311 


HTR 


PR»0»PR+32 


01310 


02000 00221 


TRA 


DIGRTN 


01311 


606060606060 PR 


BCO 


2 


01312 


606060606060 






01313 


262143622560 


3CD 


FALSE END OF RECORD TAPE 2. FILE ! 


01314 


254524604626 






01315 


605125234651 






01316 


246063214725 






01317 


600273602631 






01320 


432560053360 






01321 


602346477060 






01322 


216360434623 






01323 


216331464560 






01324 


070204056062 






01325 


304664432460 


BCD 


HOULD TRANSFER TO 


01326 


635121456226 






01327 


255160634660 






01330 


606060606060 






01331 


606060606060 






01332 


606060606060 






01333 


606060606060 






01334 


606060606060 






01335 


606060606060 






01336 


606060606060 






01337 


512462602163 


BCD 


RDS AT LOCATION 7244t OR CAUSE FIl 


01340 


604346232163 






01341 


314645600702 






01342 


040473604651 






01343 


602321646225 






01344 


602631432560 






01345 


624231476021 






01346 


636025452460 






01347 


462660263143 






01350 


256005336060 






01351 


00000 00000 X 






A 


ooooo 


END 





u 



o 



r\ 



n 



y i 



1 ORG 124 

1 00174 

00174 01303 01377 

01303 

TO 01303 3 00000 00174 



01304 07400 4 00740 

01305 01244 01237 

01306 07400 4 00740 

01307 01400 01311 

01310 02000 00221 

01311 606060606060 

01312 606060606060 

01313 262143622560 

01314 254524604626 

01315 605125234651 

01316 246046516026 

01317 214362256025 

01320 452460462660 

01321 263143256031 

01322 456051252124 

01323 314527736063 

01324 214725600373 

01325 602631432560 

01326 017360265146 

01327 446065215131 

01330 212243256043 

01331 254527633060 

01332 512523465124 

01333 606630312330 

01334 606060606060 

01335 606060606060 

01336 606060606060 

01337 623046644324 

01340 603021652560 

01341 222525456066 

01342 513163632545 

01343 602162602160 

01344 622551312562 

01345 604626600460 

01346 664651246025 

01347 456351312562 

01350 336060234647 

01351 706043464647 

01352 602163604346 

01353 232163314645 

01354 600503605125 

01355 212462606060 

01356 606060606060 

01357 606060606060 



PR 



FORCE 


NEW RECORD 








ORG 


124 


FORCE 


NEW 


RECORD 


HTR 


X-ltOfLOCREC 


CARD 


FOR 


DE 


ORG 


LOCREC 








TXH 


124 


62 


FT 


53 




124 


63 


FT 


53 




124 


66 


FT 


53 




124 


6? 


FT 


53 




124 


72 


FT 


53 




124 


73 


FT 


53 


TSX 


PRINT»4 








HTR 


MACHIN.OtMACHIN+5 








TSX 


PRINT#4 








HTR 


PR»0#PR+55 








TRA 


DIGRTN 








BCD 


2 









BCD FALSE END OF RECORD OR FALSE END OF FILE IN READING* TAPE 3* 



BCD FILE 1# FROM VARIABLE LENGTH RECORD WHICH 



BCD SHOULD HAVE BEEN WRITTEN AS A SERIES OF 4 WORD ENTRIES. COP 



BCD Y LOOP AT LOCATION 53 READS 



01360 


606060606060 


01361 


606060606060 


01362 


606060606060 


01363 


046066465124 


01364 


626021636021 


01365 


606331442560 


01366 


214524602330 


01367 


252342626021 


01370 


272131456263 


01371 


606330316260 


01372 


314560512521 


01373 


243145276002 


01374 


452473600351 


01375 


246021452460 


01376 


046330606646 


01377 


512433606060 


01400 


00000 00000 




00000 



BCD 4 WORDS AT A TIME AND CHECKS AGAINST THIS IN READING 2ND* 3R 



BCD 3D AND 4TH WORD* 



END 



. * 



-1 



u 



o 



2 I 



TD 





ORG 125 




00175 


00175 


01303 01367 




01303 


01303 


3 00000 00175 


01304 


07400 4 00740 


01305 


01244 01237 


01306 


07400 4 00740 


01307 


01370 01311 


01310 


02000 00221 


01311 


606060606060 


01312 


606060606060 


01313 


262143622560 


01314 


254524604626 


01315 


602631432560 


01316 


465160262143 


01317 


622560254524 


01320 


604626605125 


01321 


234651246031 


01322 


456051252124* 


01323 


314527605125 


01324 


234651246026 


01325 


514644606321 


01326 


472560027360 


01327 


263143256005 


01330 


336060512523 


01331 


465124626031 


01332 


456063303162 


01333 


602631432560 


01334 


606060606060 


01335 


606060606060 


01336 


606060606060 


01337 


215125604431 


01340 


453144644460 


01341 


026066465124 


01342 


627360312425 


01343 


456331263123 


01344 


216331464560 


01345 


664651246021 


01346 


452460664651 


01347 


246023466445 


01350 


633360602346 


01351 


477060434646 


01352 


476021636043 


01353 


462321633146 


01354 


456007000700 


01355 


602446256260 


01356 


454663602163 


01357 


632544476360 


01360 


606060606060 


01361 


606060606060 


01362 


606060606060 


01363 


634660512521 



PR 



FORCE NEW RECORD 




ORG 125 


FORCE NEW RECORD 


HTR X-l»0»LOCREC 


CARD FOR DE 


ORG LOCREC 




TXH 125 


7075 FT 27 


125 


7076 FT 27 


TSX PRINT*4 




HTR MACHIN#0*MACHIN*5 




TSX PRINTt4 




HTR PR»0»PR+47 




TRA DIGRTN 




BCD 2 





BCD FALSE END OF FILE OR FALSE END OF RECORD IN READING RECORD F 



BCD ROM TAPE 2* FILE 5* RECORDS IN THIS FILE 



BCD ARE MINIMUM 2 WORDS* IDENTIFICATION WORD AND WORD COUNT, CO 



BCD PY LOOP AT LOCATION 7070 DOES NOT ATTEMPT 



BCD 5T0 READ MORE THAN 2 WORDS. 



^ 



01364 


246044465125 


01365 


606330214560 


01366 


026066465124 


01367 


'623360606060 


01370 


00000 00000 X 




00000 



END 



O (j 



r^ 



n 



2 L 



I 




ORG 126 


I 




00176 




00176 


01303 01374 
01303 


TO 


01303 


3 OOOOO 00176 




01304 


07400 4 00740 




01305 


01244 01237 




01306 


07400 4 00740 




01307 


01375 01311 




01310 


02000 00221 




01311 


606060606060 




01312 


606060606060 




01313 


262143622560 




01314 


254524604626 




01315 


602631432560 




01316 


314560512521 




01317 


243145276021 




01320 


605125234651 




01321 


246026514644 




01322 


606321472560 




01323 


043360602346 




01324 


477060434646 




01325 


476022252731 




01326 


456260216360 




01327 


434623216331 




01330 


464560070505 




01331 


023360606060 




01332 


606060606060 




01333 


606060606060 




01334 


606060606060 




01335 


606060606060 




01336 


606060606060 




01337 


633025602346 




01340 


477060216360 




01341 


434623216331 




01342 


464560070506 




01343 


016031626021 




01344 


636043252162 




01345 


636063302560 




01346 


622523464524 




01347 


604645256027 




01350 


316525456021 




01351 


452460316260 




01352 


475146275121 




01353 


444425246063 




01354 


466026314524 




01355 


606060606060 




01356 


606060606060 




01357 


606060606060 




01360 


606060606060 




01361 


606060606060 




01362 


606060606060 




01363 


214560254524 




01364 


6Q4626605125 



PR 



FORCE NEW RECORD 
ORG 126 

HTR X-1*0*L0CREC 
ORG LOCREC 
TXH 126 
TSX PRINTt4 
HTR MACHlN»0>MACHlN+5 
TSX PR I NT #4 
HTR PR*0»PR+52 
TRA DIGRTN 
BCD 2 



FORCE NEW RECORD 
CARD FOR DE 

7563 FT 21 



BCD FALSE END OF FILE IN READING A RECORD FROM TAPE 4. COPY LOO 



BCD P BEGINS AT LOCATION 7552. 



BCD THE COPY AT LOCATION 7561 IS AT LEAST THE SECOND ONE GIVEN A 



BCD ND IS PROGRAMMED TO FIND 



BCD AN END OF RECORD SKIP* 



/* ' 



01365 


234651246062 


01366 


423147336060 


01367 


606060606060 


01370 


606060606060 


01371 


606060606060 


01372 


606060606060 


01373 


606060606060 


01374 


606060606060 


01375 


00000 00000 X 




00000 



END 



o 



,7' 



U 



n 



y l 



1 




ORG 127 


1 




00177 




00177 


01303 01374 
01303 


TO 


01303 


3 00000 00177 




01304 


07400 4 00740 




01305 


01244 01237 




01306 


07400 4 00740 




01307 


01375 01311 




01310 


02000 00221 




01311 


606060606060 




01312 


606060606060 




01313 


262143622560 




01314 


254524604626 




01315 


602631432560 




01316 


314560512521 




01317 


243145276063 




01320 


302560263151 




01321 


626360664651 




01322 


246046266021 




01323 


605125234651 




01324 


246026514644 




01325 


606321472560 




01326 


043360602346 




01327 


477060434646 




01330 


476031626021 




01331 


636043462321 




01332 


633146456007 




01333 


050502336060 




01334 


606060606060 




01335 


606060606060 




01336 


606060606060 




01337 


633025602346 




01340 


477060216360 




01341 


434623216331 




01342 


464560070505 




01343 


036024462562 




01344 


604546636021 




01345 


636325444763 




01346 


606346605125 




01347 


212460444651 




01350 


256063302145 




01351 


606330256031 




01352 


242545633126 




01353 


312321633146 




01354 


456066465124 




01355 


604626606330 




01356 


256225605125 




01357 


234651246273 




01360 


606060606060 




01361 


606060606060 




01362 


606060606060 




01363 


663031233060 




01364 


215125602163 



FORCE NEW RECORD 
CARD FOR DE 

7555 FT 21 



PR 



FORCE NEW RECORD 
ORG 127 

HTR X-1»0*L0CREC 
ORG LOCREC 
TXH 127. 
TSX PRINT»4 
HTR MACHIN*0»MACHIN+5 
TSX PRINT»4 
HTR PR>0»PR+52 
TRA DIGRTN 
BCD 2 

BCD FALSE END OF FILE IN READING THE FIRST WORD OF A RECORD FROM 



BCD 



TAPE 4» COPY LOOP IS AT LOCATION 7552. 



BCD THE COPY AT LOCATION 7553 DOES NOT ATTEMPT TO READ MORE THAN 



BCD THE IDENTIFICATION WORD OF THESE RECORDS* 



BCD WHICH ARE AT LEAST TWO WORDS LONG. 



M^ V 



01365 604325216263 

01366 606366466066 

01367 465124626043 

01370 464527336060 

01371 606060606060 

01372 606060606060 

01373 606060606060 

01374 606060606060 

01375 00000 00000 X 

00000 



END 



u 



o 



r\ 



n 



£3 L 



TO 



ORG 128 
00200 01303 



00200 
01350 
01303 
00200 
00740 
01237 
00740 
01311 
00221 



01303 3 00000 

01304 07400 4 

01305 01244 

01306 07400 4 

01307 01351 

01310 02000 

01311 606060606060 PR 

01312 606060606060 

01313 262143622560 

01314 254524604626 

01315 602631432560 

01316 314560512521 

01317 243145276063 

01320 212763212760 

01321 512523465124 

01322 602651464460 

01323 632147256004 

01324 736026314325 

01325 600233606023 
01526 464770604346 
01327 464760316260 

01330 216360434623 

01331 216331464560 

01332 040002073360 

01333 606060606060 

01334 606060606060 

01335 606060606060 

01336 606060606060 

01337 234647706021 

01340 636004000303 

01341 603162604751 

01342 462751214444 

01343 252460634660 

01344 263145246025 

01345 452460462660 

01346 512523465124 

01347 606242314733 

01350 606060606060 

01351 00000 00000 X 

00000 END 



FORCE NEW RECORD 
CARD FOR DE 

4035 FT 51 



FORCE NEW* RECORD 
ORG 128 

HTR X-1»0»L0CREC 
ORG LOCREC 
TXH 128 
TSX PRINT*4 
HTR MACHlN»0tMACHIN+5 
TSX PRINTt4 
HTR PR»0»PR+32 
TRA DIGRTN 
BCD 2 

BCD FALSE END OF FILE IN READING TAGTAG RECORD FROM TAPE 4t FILE 



BCD 2. COPY LOOP IS AT LOCATION 4027. 



BCD COPY AT 4033 IS PROGRAMMED TO FIND END OF RECORD SKIP. 



/-' 



1 




ORG 129 


FORCE 


NEW RECORD 


1 




00201 


ORG 


129 FORCE NEW RECORD 




00201 


01303 01342 


HTR 


X-1»0»LOCREC CARD FOR DE 






01303 


ORG 


LOCREC 


TD 


01303 


3 00000 00201 


TXH 


129 4161 FT 34 




01304 


07400 4 00740 


TSX 


PRINT«4 




01305 


01244 01237 


HTR 


MACHlN»0»MACHIN+5 




01306 


07400 4 00740 


TSX 


PRINT»4 




01307 


01343 01311 


HTR 


PR»0«PR+26 




01310 


02000 00221 


TRA 


DIGRTN 




01311 


606060606060 PR 


BCD 


2 




01312 


606060606060 




m 




01313 


262143622560 


BCD 


FALSE END OF FILE IN READING DOTA< 




01314 


254524604626 








01315 


602631432560 








01316 


314560512521 








01317 


243145276024 








01320 


466321276051 








01321 


252346512460 








01322 


265146446063 








01323 


214725600373 








01324 


602631432560 








01325 


013360602346 


BCD 


1« COPY LOOP AT LOCATION 4157 SH< 




01326 


477060434646 








01327 


476021636043 








01330 


462321633146 








01331 


456004010507 








01332 


606230466443 








01333 


246023216462 








01334 


256060606060 








01335 


606060606060 








01336 


606060606060 








01337 


254524604626 


BCD 


4END OF RECORD SKIP, 




01340 


605125234651 








01341 


246062423147 








01342 


336060606060 








01343 


00000 00000 X 




• 


A 




00000 


END 





i ; 



'-/- 



o 



(J 



/^, 



o 



z.y i 



1 




ORG 130 


1 




00202 




00202 


01303 01353 
01303 


TD 


01303 


3 00000 00202 




01304 


07400 4 00740 




01305 


01244 01237 




01306 


07400 4 00740 




01307 


01354 01311 




01310 


02000 00221 




01311 


606060606060 




01312 


606060606060 




01313 


262143622560 




01314 


254524604626 




01315 


602631432560 




01316 


314560512521 




01317 


243145276024 




01320 


466321276051 




01321 


252346512460 




01322 


265146446063 




01323 


214725600373 




01324 


602631432560 




01323 


013360605125 




01326 


234651246023 




01327 


464563213145 




01330 


626021604564 




01331 


442225516046 




01332 


266011606646 




01333 


512460254563 




01334 


513125623360 




01335 


606060606060 




01336 


606060606060 




01337 


234647706043 




01340 


464647602163 




01341 


604346232163 




01342 


314645600700 




01343 


040360464543 




01344 


706051252124 




01345 


626026315162 




01346 


636021452460 




01347 


622523464524 




01350 


606646512460 




01351 


462660252123 




01352 


306025456351 




01353 


703360606060 


A 


01354 


00000 00000 
00000 



PR 



FORCE MEW RECORD 
ORG 130 

HTR X-1»0*LOCREC 
ORG LOCREC 
TXH 130 
130 
TSX PRlNTt4 
HTR MACHlN»0*MACHIN+5 
TSX PRINT»4 
HTR PR»0tPR+35 
TRA OIGRTN 
BCD 2 



FORCE NEW RECORD 
CARD FOR DE 



7052 FT 
7056 FT 



36 
36 



BCD FALSE END OF FILE IN READING DOTAG RECORD FROM TAPE 3t FILE 



BCD !• RECORD CONTAINS A NUMBER OF 9 WORD ENTRIES* 



BCD COPY LOOP AT LOCATION 7043 ONLY READS FIRST AND SECOND WORD 



BCD 30F EACH ENTRY. 



END 



T f V e 



1 

I 


ORG 131 

t\f\Of\'X 


00203 


VVCUJ 

01303 01375 




01303 


TD 01303 


3 00000 00203 


01304 


07400 4 00740 


01305 


01244 01237 


01306 


07400 4 00740 


01307 


01376 01311 


01310 


02000 00221 


01311 


606060606060 


01312 


606060606060 


01313 


262143622560 


01314 


254524604626 


01315 


602631432560 


01316 


314560512521 


01317 


243145276051 


01320 


252346512460 


01321 


265146446063 


01322 


214725600273 


01323 


602631432560 


01324 


053360605125 


01325 


234651246260 


01326 


314560633031 


01327 


626026314325 


01330 


602151256044 


01331 


314531446444 


01332 


600260664651 


01333 


246273606060 


01334 


606060606060 


01335 


606060606060 


01336 


606060606060 


01337 


312425456331 


01340 


263123216331 


01341 


464560214524 


01342 


606646512460 


01343 


234664456333 


01344 


606023464770 


01345 


602163604346 


01346 


232163314645 


01347 


600701000160 


01350 


316260216360 


01351 


432521626360 


01352 


633031512460 


01353 


234647706027 


01354 


316525457360 


01355 


214524603162 


01356 


604751462751 


01357 


214444252460 


01360 


606060606060 


01361 


606060606060 


01362 


606060606060 


01363 


634660263145 


01364 


246025452460 



FORCE NEW RECORD 
CARD FOR DE 

7103 FT 27 



PR 



FORCE NEW RECORD 
ORG 131 

HTR X-1»0>LOCREC 
ORG LOCREC 
TXH 131 
TSX PRINT»4 
HTR *MACHIN»0»MACHIN+5 
TSX PRINT»4 
HTR PR»0fPR+53 
TRA DIGRTN 
BCD 2 

BCD FALSE END OF FILE IN READING RECORD FROM TAPE 2» FILE 5. RE 



BCD CORDS IN THI.S FILE ARE MINIMUM 2 WORDS* 



BCD IDENTIFICATION AND WORD COUNT. COPY AT LOCATION 7101 IS AT 



BCD LEAST THIRD COPY GIVEN* AND IS PROGRAMMED 



BCD TO FIND END OF RECORD SKIP. COPY LOOP BEGINS AT LOCATION 70 



/ / 



u 



u 



iy l 



01365 


462660512523 




01366 


465124606242 




01367 


314733606023 




01370 


464770604346 




01371 


464760222527 




01372 


314562602163 




01373 


604346232163 




01374 


314645600700 




01375 


070033606060 


BCD 170* 


01376 


00000 00000 X 






00000 


END 



1 




ORG 132 


1 




00204 




00204 


01303 01367 
01303 


TD 


01303 


3 00000 00204 




01304 


07400 4 00740 




01305 


01244 01237 




01306 


07400 4 00740 




01307 


01370 01311 




01310 


02000 00221 




01311 


606060606060 




01312 


606060606060 




01313 


262143622560 




01314 


254524604626 




01315 


602631432560 




01316 


314560512521 




01317 


243145276051 




01320 


252346512460 




01321 


265146446063 




01322 


214725600273 




01323 


602631432560 




01324 


057360512523 




01325 


465124601033 




01326 


606023464770 




01327 


604346464760 




01330 


316260272545 




01331 


255121436060 




01332 


606060606060 




01333 


606060606060 




01334 


606060606060 




01335 


606060606060 




01336 


606060606060 




01337 


626422514664 




01340 


633145256021 




01341 


636043462321 




01342 


633146456007 




01343 


000600336060 




01344 


234647706021 




01345 


636043462321 




01346 


633146456007 




01347 


010303603162 




01350 


604751462751 




01351 


214444252460 




01352 


634660263145 




01353 


246025452460 




01354 


462660512523 




01355 


465124606242 




01356 


314760606060 




01357 


606060606060 




01360 


606060606060 




01361 


606060606060 




01362 


606060606060 




01363 


264651606330 




01364 


316260624725 



FORCE NEW RECORD 
CARD FOR DE 

7135 FT 27 



PR 



FORCE NEW RECORD 

0R6 132 

HTR X-1»0»LOCREC 

ORG LOCREC 

TXH 132 

TSX PRINT#4 

HTR MACHlN»0»MACHlN+5 

TSX PRINT»4 

HTR PR»0»PR+47 

TRA DIGRTN 

BCD 2 

BCD FALSE END OF FILE IN READING RECORD FROM TAPE 2» FILE 5» REC 



BCD ORD 8* COPY LOOP IS GENERAL 



BCD SUBROUTINE AT LOCATION 7060. COPY AT LOCATION 7133 IS PROGR 



BCD AMMED TO FIND END OF RECORD SK.IP 



BCD 5FOR THIS SPECIFIC RECORD, 



o 



o 



V L 



n . ■ . • ■■■ : o 



01365 233126312360 

01366 512523465124 

01367 336060606060 
01370 00000 00000 X 

A 00000 END 



n 



1 




ORG 133 


1 




00205 




00205 


01303 01356 
01303 


TO 


01303 


3 00000 00205 




01304 


07400 4 00740 




01305 


01244 01237 




01306 


07400 4 00740 




01307 


01357 01311 




01310 


02000 00221 




01311 


606060606060 




01312 


606060606060 






01313 


262143622560 




01314 


254524604626 




01315 


602631432560 




01316 


314560512521 




01317 


243145276026 




01320 


465163212760 




01321 


512523465124 




01322 


606321472560 




01323 


027360263143 




01324 


256005736051 




01325 


2523^6512460 




01326 


010133606063 




01327 


302551256021 




01330 


512560010460 




01331 


512523465124 




01332 


626060606060 




01333 


606060606060 




01334 


606060606060 




01335 


606060606060 




01336 


606060606060 




01337 


314560633031 




01340 


626026314325 




01341 


336060234647 




01342 


706043464647 




01343 


603162602163 




01344 


604346232163 




01345 


314645600403 




01346 


336060234647 




01347 


706021636043 




01350 


462321633146 




01351 


456005066062 




01352 


304664432460 




01353 


263145246025 




01354 


452460462660 




01355 


512523465124 




01356 


606242314733 


A 


01357 


00000 00000 
00000 



FORCE NEW RECORD 
CARD FOR DE 

60 FT 56 



PR 



FORCE NEW RECORD 
ORG 133 

HTR X-1»0#LOCREC 
ORG LOCREC 
TXH 133 
TSX PRINT»4 
HTR MACHIN»0»MACHIN+5 
TSX PRINT#4 
HTR PR»0»PR+38 
TRA DIGRTN 
BCD 2 

BCD FALSE END OF FILE IN READING FORTAG RECORD TAPE 2t FILE 5* R 



BCD '•CORD 11* THERE ARE 14 RECORDS 



BCD IN THIS FILE* COPY LOOP IS AT LOCATION 43. COPY AT LOCATIO 



BCD 6N 56 SHOULD FIND END OF RECORD SKIP. 



END 



, ^i* 



U 



(J 



r^ 



n 



IV L 



TD 



ORG 134 
90206 013030 



00206 
01350 
01303 

00206 
00740 
01237 
00740 
01311 
00221 



01303 3 00000 

01304 07400 4 
01305' 01244 

01306 07400 4 

01307 01351 

01310 02000 

01311 606060606060 PR 

01312 606060606060 

01313 262143622560 

01314 254524604626 

01315 602631432560 

01316 314560512521 

01317 243145276063 

01320 312627466026 

01321 514644606321 

01322 472560027360 

01323 263143256005 

01324 736051252346 

01325 512460063360 

01326 606330255125 

01327 602151256001 

01330 046051252346 

01331 512462603145 

01332 606330316260 

01333 263143253360 

01334 606060606060 

01335 606060606060 

01336 606060606060 

01337 234647706021 

01340 636043462321 

01341 633146456003 

01342 030660623046 

01343 644324602631 

01344 452460254524 

01345 604626605125 

01346 234651246062 

01347 423147336060 
01350 606060606060 
01354 00000 00000 X 

00000 END 



FORCE NEW RECORD 
CARD FOR DE 

340 FT 58 



FORCE NEW RECORD 
ORG 134 

HTR X-1»0»LOCREC 
ORG LOCREC 
TXH 134 
TSX PRINT#4 
HTR MACHlN»0»MACHIN+5 
TSX PRINT*4 
HTR PR»0»PR+32 
TRA DIGRTN 
BCD 2 

BCD FALSE END OF FILE IN READING TIFGO FROM TAPE 2» FILE 5t RECO 



BCD RD 6. THERE ARE 14 RECORDS IN THIS FILE* 



BCD COPY AT LOCATION 336 SHOULD FIND END OF RECORD SKIP* 



i/' 



1 




ORG 135 


1 




00207 




00207 


01303 01357 
01303 


TD 


0X303 


3 00000 00207 




01304 


07400 4 00740 




01305 


01244 01237 




01306 


07400 4 00740 




01307 


01360 01311 




01310 


02000 00221 




01311 


606060606060 




01312 


606060606060 




01313 


262143622560 




01314 


254524604626 




01315 


602631432560 




01316 


314560512521 




01317 


243145276063 




01320 


512124605125 




01321 


234651246063 




01322 


214725600273 




01323 


602631432560 




01324 


057360512523 




01325 


465124600733 




01326 


606063302551 




01327 


256021512560 




01330 


010460512523 




01331 


465124626060 




01332 


606060606060 




01333 


606060606060 




01334 


606060606060 




01335 


606060606060 




01336 


606060606060 




01337 


314560633031 




01340 


626026314325 




01341 


336060234647 




01342 


706043464647 




01343 


603162602163 




01344 


604346232163 




01345 


314645600305 




01346 


023360602346 




01347 


477060216360 




01350 


434623216331 




01351 


464560030604 




01352 


606230466443 




01353 


246026314524 




01354 


602545246046 




01355 


266051252346 




01356 


512460624231 




01357 


473360606060 


A 


01360 


00000 00000 
00000 



PR 



FORCE NEW RECORD 
ORG 135 

HTR X-1»0»L0CREC 
ORG LOCREC 
TXH 135 
TSX PRINT>4 
HTR MACHlN>0»MACHIN+5 
TSX PRINT«4 
HTR PR»0#PR+39 
TRA DIGRTN 
BCD 2 



FORCE NEW RECORD 
CARD FOR DE 

366 FT 58 



BCD FALSE END OF FILE IN READING TRAD RECORD TAPE 2» FILE 5» REC 



BCD ORD 7* THERE ARE 14 RECORDS 



BCD IN THIS FILE. COPY LOOP IS AT LOCATION 352. COPY AT LOCATI 



BCD 70N 364 SHOULD FIND END OF RECORD SKIP. 



END 



o 



u 



/•~\ 



y i 



TD 



ORG 136 
00210 01303 



00210 
01347 
01303 
00210 
00740 
01237 
00740 
01311 
00221 



01303 3 00000 

01304 07400 4 

01305 01244 

01306 07400 4 

01307 01350 

01310 02000 

01311 606060606060 

01312 606060606060 

01313 262143622560 

01314 254524604626 

01315 602631432560 

01316 314560512521 

01317 243145276063 

01320 512143256560 

01321 512523465124 

01322 602651464460 

01323 632147256004 

01324 736026314325 

01325 600173605125 

01326 234651246001 

01327 336060234647 

01330 706043464647 

01331 603162602163 

01332 604346232163 

01333 314645600400 

01334 013360606060 

01335 606060606060 

01336 606060606060 

01337 234647706021 

01340 636043462321 

01341 633146456004 

01342 010560623046 

01343 644324602631 

01344 452460254524 

01345 604626605125 

01346 234651246062 

01347 423147336060 
01350 00000 00000 

00000 



PR 



FORCE NEW RECORD 
CARD FOR DE 

417 FT 58 



FORCE NEW RECORD 
ORG 136 

HTR X-l»0»LOCREC 
ORG LOCREC 
TXH 136 
TSX PRINT»4 
HTR MACHIN»OfMACHIN+5 
TSX PRINT«4 
HTR PR»0*PR+31 
TRA DIGRTN 
BCD 2 

BCD FALSE END OF FILE IN READING TRALEV RECORD FROM TAPE 4* FILE 



BCD 1* RECORD !• COPY LOOP IS AT LOCATION 401* 



BCD 9C0PY AT LOCATION 415 SHOULD FIND END OF RECORD SKIP. 



END 



. - / 



1 




ORG 137 


FORCE 


NEW RECORD 


1 




00211 


ORG 


.137 




00211 


01303 01334 


HTR 


X-1»0«L0CREC 






01303 


ORG 


LOCREC 


TD 


01303 


3 00000 00211 


TXH 


137 




01304 


07400 4 00740 


TSX 


PRINT»4 




01305 


01244 01237 


HTR 


MACHIN»0»MACHIN+5 




01306 


07400 4 00740 


TSX 


PRINT»4 




01307 


01335 01311 


HTR 


PR»0«PR+20 




01310 


02000 00221 


TRA 


DIGRTN 




01311 


606060606060 PR 


BCD 


2 




01312 


606060606060 








01343 


262143622560 


BCD 


FALSE END OF FIL 




01314 


254524604626 








01315 


602631432560 








01316 


314560512521 








01317 


243145276063 








01320 


312627466051 








01321 


252346512460 








01322 


265146446063 








01323 


214725600273 








01324 


602631432560 








01325 


057360512523 


BCD 


85 » RECORD 6. COI 




01326 


465124600633 








01327 


606023464770 








01330 


604346464760 








01331 


316260216360 








01332 


434623216331 








01333 


464560040407 








01334 


336060606060 








01335 


00000 00000 x 






A 




00000 


END 





FORCE NEW RECORD 
CARD FOR DE 

454 FT 62 



o 



o 



n 



TO 



ORG 138 
00212 01303 



01303 

01304 

01305 

01306 

01307 

01310 

01311 

01312 

01313 

01314 

01315 

01316 

01317 

01320 

01321 

01322 

01323 

01324 

01325 

01326 

01327 

01330 

01331 

01332 

01333 

01334 

01335 



00212 

01334 
01303 
00212 
00740 
01237 
00740 
01311 
00221 



3 00000 
07400 4 
01244 
07400 4 
01335 
02000 
606060606060 
606060606060 
262143622560 
254524604626 
602631432560 
314560512521 
243145276063 
512124605125 
234651246026 
514644606321 
472560027360 
263143256005 
736051252346 
512460073360 
602346477060 
434646476031 
626021636043 
462321633146 
456005030033 
606060606060 
00000 00000 
00000 



PR 



FORCE NEW RECORD 
CARD FOR DE 

534 FT 62 



FORCE NEW RECORD 
ORG 138 

HTR X-ltOtLOCREC 
ORG LOCREC 
TXH 138 
TSX PRINT»4 
HTR MACHIN»0»MACHIN+5 
TSX PRINT* 4 
HTR PR»0»PR+20 
TRA D1GRTN 
BCD 2 

BCD FALSE END OF FILE IN READING TRAD RECORD FROM TAPE 2» FILE 5 



BCD 8» RECORD 7. COPY LOOP IS AT LOCATION 530. 



END 



1 1 ^ L 



ORG 139 
00213 01303 



TO 01303 
01304 
01305 
01306 
01307 
01310 
01311 
01312 
01313 262143622560 



00000 

07400 

01244 

07400 

01351 

02000 
606060606060 
606060606060 



00213 
01350 
01303 
00213 
00740 
01237 
00740 
01311 
00221 



PR 



FORCE NEW RECORD 
ORG 139 

HTR X-l#0#LOCREC 
ORG LOCREC 
TXH 139 
TSX PRINTt4 
HTR MACHINtO«MACHIN+5 
TSX PRINT#4 
HTR PR»0»PR+32 
TRA DIGRTN 
BCD 2 



FORCE NEW RECORD 
CARD FOR DE 

336 FT 86 



01314 254524604626 

01315 602631432560 

01316 314560512521 

01317 243145276051 

01320 252346512460 

01321 265146446063 

01322 214725600373 

01323 606630312330 

01324 606230466443 

01325 246030216525 

01326 602225254560 

01327 474662316331 

01330 464525246021 

01331 266325516026 

01332 314325604421 

01333 514260606060 

01334 606060606060 

01335 606060606060 

01336 606060606060 

01337 216360633025 

01340 602545246046 

01341 266063302560 

01342 106330602631 

01343 432533606023 

01344 464770604346 

01345 464760316260 

01346 216360434623 

01347 216331464560 

01350 030205336060 

01351 00000 00000 X 

00000 



BCD FALSE END OF FILE IN READING RECORD FROM TAPE 3» WHICH SHOUL 



BCD D HAVE BEEN POSITIONED AFTER FILE MARK 



BCD AT THE END OF THE 8TH FILE. COPY LOOP IS AT LOCATION 325» 



END 



u 



u 



n 



l 




ORG 140 


FORCE 


NEW RECORD 


1 




00214 


ORG 


140 FORCE NEW RECORD 




00214 


01303 01350 


HTR 


X-1»0»LOCREC CARD FOR DE 






01303 


ORG 


LOCREC 


TD 


01303 


3 00000 00214 


TXH 


140 1211 FT 75 




01304 


07400 4 00740 


TSX 


PRINT»4 




01305 


01244 01237 


HTR 


MACHlNtO»MACHIN+5 




01306 


07400 4 00740 


TSX 


PRINT»4 




01307 


01351 01311 


HTR 


PR»0»X 




01310 


02000 00221 


TRA 


DIGRTN 




01311 


606060606060 PR 


BCD 


2 




01312 


606060606060 








01313 


262143622560 


BCD 


FALSE END OF FILE IN READING RECOI 




01314 


254524604626 








01315 


602631432560 








01316 


314560512521 








01317 


243145276051 








01320 


252346512460 








01321 


265146446063 








01322 


214725600373 








01323 


602631432560 








01324 


033360606330 








01325 


256225602151 


BCD 


ESE ARE 15 WORD RECORDS AND 




01326 


256001056066 








01327 


465124605125 








01330 


234651246260 








01331 


214524606060 








01332 


606060606060 








01333 


606060606060 








01334 


606060606060 








01335 


606060606060 








01336 


606060606060 








01337 


633025512560 


BCD 


THERE IS AN END OF FILE MARK. COf 




01340 


316260214560 








01341 


254524604626 








01342 


602631432560 








01343 


442151423360 








01344 


602346477060 








01345 


434646476031 








01346 


626021636043 








01347 


462321633146 








01350 


456001010702 








01351 


00000 00000 X 






A 




00000 


END 





z 1 



.■'/ 



1 




ORG 141 


1 




00215 




00215 


01303 01344 
01303 


TD 


01303 


3 00000 00215 




01304 


07400 4 00740 




01305 


01244 01237 




01306 


07400 4 00740 




01307 


01345 01311 




01310 


02000 00221 




01311 


606060606060 PR 




01312 


606060606060 




01313 


262143622560 




01314 


254524604626 




01315 


602631432560 




01316 


314560512521 




01317 


243145276051 




01320 


252346512460 




01321 


265146446063 




01322 


214725600373 




01323 


602631432560 




01324 


033360606330 




01325 


316260263143 




01326 


256024462562 




01327 


604546636030 




01330 


216525602160 




01331 


263143256044 




01332 


215142602163 




01333 


606330256025 




01334 


452433606060 




01335 


606060606060 




01336 


606060606060 




01337 


234647706043 




01340 


464647603162 




01341 


602163604346 




01342 


232163314645 




01343 


600101070233 




01344 


606060606060 


A 


01345 


00000 00000 X 
OOOOO 



FORCE NEW RECORD 
ORG 141 

HTR X-1»0*LOCREC 
ORG LOCREC 
TXH 141 
TSX PRINT»4 
HTR MACHIN»0»MACHIN+5 
TSX PRINTt4 
HTR PR»0#PR+28 
TRA DIGRTN 
BCD 2 



FORCE NEW RECORD 
CARD FOR DE 

1221 FT 75 



BCD FALSE END OF FILE IN READING RECORD FROM TAPE 3f FILE ^^ TH 



BCD IS FILE DOES NOT HAVE A FILE MARK AT THE END. 



BCD 6COPY LOOP IS AT LOCATION 1172. 



END 



u 



u 



o 



TD 





ORG 142 




00216 


00216 


01303 01374 




01303 


01303 


3 00000 00216 


01304 


07400 4 00740 


01305 


01244 01237 


01306 


07400 4 00740 


01307 


01375 01311 


01310 


02000 00221 


01311 


606060606060 


01312 


606060606060 


01313 


262143622560 


01314 


254524604626 


01315 


602631432560 


01316 


314560512521 


01317 


243145276023 


01320 


316360512523 


01321 


465124602651 


01322 


464460632147 


01323 


256003736066 


01324 


303123306062 


01325 


304664432460 


01326 


302165256022 


01327 


252545604746 


01330 


623163314645 


01331 


252460212663 


01332 


255160263143 


01333 


256044215142 


01334 


336060606060 


01335 


606060606060 


01336 


606060606060 


01337 


234647706043 


01340 


464647602225 


01341 


273145626021 


01342 


636043462321 


01343 


633146456003 


01344 


006066316330 


01345 


600260226263 


01346 


603145626351 


01347 


642363314645 


01350 


623360602346 


01351 


477060216360 


01352 


030560316260 


01353 


475146275121 


01354 


444425246060 


01355 


606060606060 


01356 


606060606060 


01357 


606060606060 


01360 


606060606060 


01361 


606060606060 


01362 


606060606060 


01363 


634660263145 


01364 


246025452460 







FORCE NEW RECORD 
ORG 142 

HTR X-1»0#L0CREC 
ORG LOCREC 
TXH 142 
TSX PRINT#4 
HTR MACHIN»0»MACHIN+5 
TSX PR I NT f 4 



FORCE NEW RECORD 
CARD FOR DE 

37 FT 90 



HTR PR»0»PR+52 
TRA DIGRTN 
PR BCD 2 

BCD FALSE END OF FILE IN READING CIT RECORD FROM TAPE 3» WHICH S 



BCD HOULD HAVE BEEN POSITIONED AFTER FILE MARK* 



BCD COPY LOOP BEGINS AT LOCATION 30 WITH 2 BST INSTRUCTIONS. CO 



BCD PY AT 35 IS PROGRAMMED 



BCD TO FIND END OF RECORD SKIP. 



01965 462660512523 

01366 465124606242 

01367 314733606060 

01370 606060606060 

01371 606060606060 

01372 606060606060 

01373 606060606060 

01374 606060606060 

01375 00000 00000 X 

00000 



ENO 



U 



u 



r> 



n 



2 L 



1 




ORG 143 


1 




00217 




00217 


01303 01362 
01303 


TO 


01303 


3 00000 00217 




01304 


07400 4 00740 




01305 


01244 01237 




01306 


07400 4 00740 




01307 


01363 01311 




01310 


02000 00221 




01311 


606060606060 




01312 


606060606060 




01313 


262143622560 




01314 


254524604626 




01315 


602631432560 




01316 


314560512521 




01317 


243145276021 




01320 


605125234651 




01321 


246026514644 




01322 


606321472560 




01323 


023360602346 




01324 


477060434646 




01325 


476031626021 




01326 


636043462321 




01327 


633146456003 




01330 


000560214524 




01331 


605125212462 




01332 


602651464460 




01333 


606060606060 




01334 


606060606060 




01335 


606060606060 




01336 


606060606060 




01337 


263143256003 




01340 


736004736005 




01341 


736007736011 




01342 


604651600100 




01343 


336060234647 




01344 


706021636043 




01345 


462321633146 




01346 


456003010760 




01347 


316260475146 




01350 


275121444425 




01351 


246063466026 




01352 


314524602545 




01353 


246046266051 




01354 


252346512460 




01355 


624231473360 




01356 


606060606060 




01357 


606060606060 




01360 


606060606060 




01361 


606060606060 




01362 


606060606060 




01363 


00000 00000 


A 




00000 



PR 



FORCE NEW RECORD 
CARD FOR DE 

321 FT 90 



FORCE NEW RECORD 

ORG 143 

HTR X-1»0*L0CREC 

ORG LOCREC 

TXH 143 

TSX PRINT«4 

HTR MACHIN»0»MACH!N+5 

TSX PRINTt4 

HTR PR»0»PR+42 

TRA DIGRTN 

BCD 2 

BCD FALSE END OF FILE IN READING A RECORD FROM TAPE 2. COPY LOO 



BCD P IS AT LOCATION 305 AND READS FROM 



BCD FILE 3t 4» 5t 7» 9 OR 10. 



COPY AT LOCATION 317 IS PROGRAMME 



BCD D TO FIND END OF RECORD SKIP, 



END 



2'* 



l*V 



1 




ORG 144 


FORCE 


NEW RECORD 


1 




00220 


ORG 


144 




00220 


01303 01332 


HTR 


X-l»OtLOCREC 






01303 


ORG 


LOCREC 


TO 


01303 


3 OOOOO 00220 


TXH 


144 




01304 


07400 4 00740 


TSX 


PRINT»4 




01305 


01244 01237 


HTR 


MACHIN*0»MACHIN+5 




01306 


07400 4 00740 


TSX 


PRINT»4 




01307 


01333 01311 


HTR 


PR»0»PR+18 




01310 


02000 00221 


TRA 


DIGRTN 




01311 


606060606060 PR 


BCD 


2 




01312 


606060606060 








01313 


262143622560 


BCD 


FALSE END OF FIL 




01314 


254524604626 








01315 


602631432560 








01316 


314560512521 








01317 


243145276051 








01320 


252346512460 








01321 


265146446063 








01322 


214725600273 








01323 


605125234651 








01324 


246002736026 








01325 


314325600533 


BCD 


6ILE 5m COPY LOO 




01326 


606023464770 








01327 


604346464760 








01330 


316260216360 








01331 


434623216331 








01332 


464560010305 






A 


01333 


OOOOO OOOOO X 
OOOOO 


END 





FORCE NEW RECORD 
CARD FOR DE 

1341 FT 92 



IS AT LOCATION 135« 



u 



u 



r> 



r\ 



LJ I 



I 




ORG 145 


FORCE 


NEW RECORD 


1 




00221 


ORG 


145 FORCE NEW RECORD 




00221 


01303 01333 


HTR 


X-1»0»L0CREC CARD FOR DE 






01303 


ORG 


LOCREC 


TD 


01303 


3 00000 00221 


TXH 


145 1347 FT 92 




01304 


07400 4 00740 


TSX 


PRINT#4 




01305 


01244 01237 


HTR 


MACH I N »0 »MACH I N+5 




013C6 


07400 4 00740 


TSX 


PRINTf4 




01307 


01334 01311 


HTR 


PR#0#PR+19 




01310 


02000 00221 


TRA 


DIGRTN 




01311 


606060606060 PR 


BCO 


2 




01312 


606060606060 








01313 


262143622560 


BCD 


FALSE END OF FILE IN READING RECOI 




01314 


254524604626 








01315 


602631432560 








01316 


314560512521 








01317 


243145276051 








01320 


252346512460 








01321 


265146446063 








01322 


214725600273 








01323 


605125234651 








01324 


246004736026 








01325 


314325600533 


BCD 


7ILE 5. COPY LOOP IS AT LOCATION 




01326 


606023464770 








01327 


604346464760 








01330 


316260216360 








01331 


434623216331 








01332 


464560010103 








01333 


013360606060 








01334 


00000 00000 X 






A 




00000 


- END 


- — 



TD 



ORG 146 
00222 01303 



00222 

01350 
01303 
00222 
00740 
01237 
00740 
01311 
00221 



01303 3 00000 

01304 07400 4 

01305 01244 

01306 07400 4 

01307 01351 

01310 02000 

01311 606060606060 PR 

01312 606060606060 

01313 262143622560 

01314 254524604626 

01315 602631432560 

01316 314560512521 

01317 243145276063 

01320 214725605125 

01321 234651246046 

01322 266023215124 

01323 603144212725 

01324 602651464460 

01325 632147256003 

01326 336060234647 

01327 706021636043 

01330 462321633146 

01331 456003060700 

01332 606230466443 

01333 246060606060 

01334 606060606060 

01335 *606060606060 

01336 606060606060 

01337 232164622560 

01340 254524604626 

01341 605125234651 

01342 246062423147 

01343 336060234647 

01344 706043464647 

01345 603162602163 

01346 604346232163 

01347 314645600306 

01350 050533606060 

01351 00000 00000 X 

00000 



FORCE NEW RECORD 
CARD FOR DE 

3672 FT 115 



FORCE NEW RECORD 

ORG 146 

HTR X~1»0»LOCREC 

ORG LOCREC 

TXH 146 

TSX PRINT#4 

HTR MACHIN»0fMACHIN+5 

TSX PRINT»4 

HTR PR*0»PR+32 

TRA DIGRTN 

BCD 2 



BCD FALSE END OF FILE IN READING TAPE RECORD OF CARD IMAGE FROM 



BCD TAPE 3* COPY AT LOCATION 3670 SHOULD 



BCD CAUSE END OF RECORD SKIP. COPY LOOP IS AT LOCATION 3655. 



END 



/ 



u 



u 



n 



O 



■ IV L 



1 




ORG 147 


1 




00223 




00223 


01303 01351 
01303 


TD 


01303 


3 00000 00223 




01304 


07400 4 00740' 




01305 


01244 01237 




01306 


07400 4 00740 




01307 


01352 01311 




01310 


02000 00221 




01311 


606060606060 




01312 


606060606060 




01313 


262143622560 




01314 


254524604626 




01315 


602631432560 




01316 


314560512521 




0131? 


243145276063 




01320 


302560234644 




01321 


444645605125 




01322 


234651246026 




01323 


514644606321 




01324 


472560027360 




01325 


512523465124 




01326 


600373602631 




01327 


432560053360 




01330 


602346477060 




01331 


434646476031 




01332 


626021636043 




01333 


462321633146 




01334 


456004000433 




01335 


606060606060 




■ 01336 


606060606060 




01337 


234647706021 




01340 


636043462321 




01341 


633146456004 




01342 


010460316260 




01343 


475146275121 




01344 


444425246063 




01345 


466026314524 




01346 


602545246046 




01347 


266051252346 




01350 


512460624231 




01351 


473360606060 


A 


01352 


00000 00000 
00000 



PR 



FORCE NEW RECORD 
CARD FOR DE 

427 FT 96 



FORCE NEW RECORD 
ORG 147 

HTR X-l«0#LOCREC 
ORG LOCREC 
TXH 147 
TSX PRINT»4 
HTR MACHIN»0»MACHiN+5 
TSX PRINTt4 
HTR PR»0*PR+33 
TRA DIGRTN 
BCD 2 

BCD FALSE END OF FILE IN READING THE COMMON RECORD FROM TAPE 2» 



BCD RECORD 3t FILE 5* COPY LOOP IS AT LOCATION 404. 



BCD COPY AT LOCATION 414 IS PROGRAMMED TO FIND END OF RECORD SKI 



BCD IP* 
END 



1 




ORG 148 


FORCE 


NEW RECORD 


1 




00224 


ORG 


148 FORCE NEW RECORD 




00224 


01303 01352 


HTR 


X-l»0tLOCREC CARD FOR DE 


. 




01303 


ORG 


LOCREC 


TD 


01303 


3 00000 00224 


TXH 


148 624 FT 98 




01304 


07400 4 00740 


TSX 


PRINT#4 




01305 


01244 01237 


HTR 


MACHIN#0fMACHIN+5 




01306 


07400 4 00740 


TSX 


PRINTt4 




01307 


01353 01311 


HTR 


PR»0tPR+34 




01310 


02000 00221 


TRA 


DIGRTN 




01311 


606060606060 PR 


BCD 


2 




01312 


606060606060 








01313 


262143622560 


BCD 


FALSE END OF FILE IN READING SUBDI 




01314 


254524604626 








01315 


602631432560 








01316 


314560512521 








01317 


243145276062 








01320 


642224252660 








01321 


632122432560 








01322 


265146446063 








01323 


214725600273 








01324 


605125234651 








01325 


246002736026 


BCD 


D 2* FILE 5. COPY LOOP IS AT 




01326 


314325600533 








01327 


606023464770 








01330 


604346464760 








01331 


316260216360 








01332 


606060606060 








01333 


606060606060 








01334 


606060606060 








01335 


606060606060 








01336 


606060606060 








01337 


434623216331 


BCD 


LOCATION 454. COPY AT 464 IS PROi 




01340 


4645600405C4 








01341 


336060234647 








01342 


706021636004 








01343 


060460316260 








01344 


475146275121 








01345 


444425246063 








01346 


466026314524 








01347 


6025452460*6 








01350 


2660512523*6 








01351 


512460624231 


BCD 


2RD SKIP. 




01352 


473360606060 






A 


01353 


00000 00000 X 
00000 


END 





IS PROGRAMMED TO FIND END OF RECO 



u 



<J 



n 



L3 L 



TD 





ORG 149 




00225 


00225 


01303 01357 




01303 


01303 


3 00000 00225 


01304 


07400 4 00740 


« 1 •» rtc 




\J 13KIJ 


01306 


07400 4 00740 


01307 


01360 01311 


01310 


02000 00221 


01311 


606060606060 F 


01312 


606060606060 


01313 


216062642262 


01314 


235131476360 


01315 


234644223145 


01316 


216331464573 


01317 


602163604325 


01320 


216263600160 


01321 


314524256760 


01322 


462660663031 


01323 


233060316260 


Q1324 


644524255160 


01325 


234645635146 


01326 


436046266021 


01327 


602446736031 


01330 


626022253145 


01331 


276025672144 


01332 


314525243360 


01333 


606060606060 


01334 


606060606060 


01335 


606060606060 


01336 


606060606060 


01337 


216062642262 


01340 


235131476360 


01341 


302162602225 


01342 


254560264664 


01343 


452460663163 


01344 


304664636062 


01345 


642330602145 


01346 


603145242567 


01347 


336060633025 


01350 


604346273123 


01351 


604626606330 


01352 


256047514627 


01353 


512144604421 


01354 


422562606330 


01355 


316260314447 


01356 


466262312243 


01357 


253360606060 


01360 


00000 00000 X 




00000 



FORCE NEW RECORD 
ORG 149 

HTR X-l»0fL0CREC 
ORG LOCREC 
TXH 149 
TSX PRINT#4 
HTR MACHIN »0t MACHIN+5 



FORCE NEW RECORD 
CARD FOR DE 

6004 FT 32 



PR 



TSX PRINTt4 
HTR PR»0*PR+39 
TRA DIGRTN 
BCD 2 

BCD A SUBSCRIPT COMBINATION* AT LEAST 1 INDEX OF WHICH IS UNDER 



BCD CONTROL OF A DO* IS BEING EXAMINED* 



BCD A SUBSCRIPT HAS BEEN FOUND WITHOUT SUCH AN INDEX. THE LOGIC 



BCD 7 OF THE PROGRAM MAKES THIS IMPOSSIBLE. 



END 



ORG 150 
00226 01303 



00226 

01355 
01303 
00226 
00740 
01237 
00740 
01311 
00221 



TO 01303 3 00000 

01304 07400 4 

01305 01244 

01306 07400 4 

01307 01356 

01310 02000 

01311 606060606060 

01312 606060606060 

01313 514664633145 

01314 256021636043 

01315 462321633146 

01316 456006070101 

01317 606230466443 

01320 246022256021 

01321 224325606346 

01322 602346456331 

01323 456425602145 

01324 214370623162 

01325 604626604525 

01326 676360244660 

01327 314560452562 

01330 633360602364 

01331 515125456360 

01332 432565254360 

01333 264651602145 

01334 606060606060 

01335 606060606060 

01336 606060606060 

01337 314545255160 

01340 244660302162 

01341 602225254560 

01342 512524642325 

01343 246063466001 

01344 336060434627 

01345 312360462660 

01346 633025604751 

01347 462751214460 

01350 442142256260 

01351 633031626031 

01352 444746626231 

01353 224325336060 

01354 606060606060 

01355 606060606060 

01356 00000 00000 
A OOOOO 



PR 



FORCE NEW RECORD 

ORG 150 

HTR X-l»0«LOCREC 

ORG LOCREC 

TXH 150 

TSX PRINTt4 

HTR MACHlNtOtMACMN+5 

TSX PRINT»4 

HTR PR»0»PR+37 

TRA OIGRTN 

BCD 2 



FORCE NEW RECORD 
CARD FOR OE 

6710 FT 27 



BCD ROUTINE AT LOCATION 6711 SHOULD BE ABLE TO CONTINUE ANALYSIS 



BCD OF NEXT DO IN NEST. CURRENT LEVEL FOR AN 



BCD INNER DO HAS BEEN REDUCED TO 1. LOGIC OF THE PROGRAM MAKES 



BCD 5THIS IMPOSSIBLE. 



END 



o 



u 



n 



n 



L r L 



ORG 151 



TD 



00227 


01303 01355 




01303 


01303 


3 00000 00227 


01304 


07400 4 00740 


01305 


01244 01237 


01306 


07400 4 00740 


01307 


01356 01311 


01310 


02000 00221 


01311 


606060606060 


01312 


606060606060 


01313 


216024466045 


01314 


256263252460 


01315 


663163303145 


01316 


602145466330 


01317 


255160244660 


01320 


302162602225 


01321 


254560264664 


01322 


452460634660 


01323 


302165256021 


01324 


604325652543 


01325 


602162623127 


01326 


454425456360 


01327 


432562626063 


01330 


302145604651 


01331 


602550642143 


01332 


606346600133 


01333 


606060606060 


01334 


606060606060 


01335 


606060606060 


01336 


606060606060 


01337 


633025604346 


01340 


273123604626 


01341 


606330256047 


01342 


514627512144 


01343 


604421422562 


01344 


606330316260 


01345 


314447466262 


01346 


312243253360 


01347 


633025604325 


01350 


652543602346 


01351 


644563603162 


01352 


603145603145 


01353 


242567605125 


01354 


273162632551 


01355 


600233606060 


01356 


00000 00000 




00000 



PR 



FORCE NEW RECORD 
CARD FOR DE 

6373 FT 27 



FORCE NEW RECORD 
ORG 151 

HTR X-l»0«LOCREC 
ORG LOCREC 
TXH 151 
TSX PRINT»4 
HTR MACHIN*0#MACHIN+5 
TSX PRINT»4 
HTR PR*0»PR+37 
TRA DIGRTN 
BCD 2 

BCD A DO NESTED WITHIN ANOTHER DO HAS BEEN FOUND TO HAVE A LEVEL 



BCD ASSIGNMENT LESS THAN OR EQUAL TO !• 



BCD THE LOGIC OF THE PROGRAM MAKES THIS IMPOSSIBLE. THE LEVEL CO 



BCD 5UNT IS IN INDEX REGISTER 2» 



END 



1 




ORG 152 


1 




00230 




00230 


01303 01366 
01303 


TO 


01303 


3 00000 00230 




01304 


07400 4 00740 




01305 


01244 01237 




01306 


07400 4 00740 




01307 


01367 01311 




01310 


02000 00221 




01311 


606060606060 




01312 


606060606060 




01313 


314524256760 




01314 


512527316263 




01315 


255160016030 




01316 


216260222525 




01317 


456031452351 




01320 


254425456325 




01321 


246022257046 




01322 


452460633025 




01323 


604421673144 




01324 


644460622563 




01325 


633145276047 




01326 


255144316262 




01327 


212243256031 




01330 


456063303162 




01331 


606225236331 




01332 


464560462660 




01333 


475146275121 




01334 


447360606060 




01335 


606060606060 




01336 


606060606060 




01337 


242562473163 




01340 


256021606325 




01341 


626360314560 




01342 


633025605146 




01343 


646331452560 




01344 


663031233060 




01345 


475125652545 




01346 


636260633031 




01347 


623360604751 




01350 


462751214460 




01351 


623046644324 




01352 


602225602122 




01353 


432560634660 




01354 


462263213145 




01355 


602446632127 




01356 


602545635170 




01357 


606060606060 




01360 


' 606060606060 




01361 


606060606060 




01362 


606060606060 




01363 


264651604525 




01364 


676360466463 



PR 



FORCE NEW RECORD 
ORG 152 

HTR X-1»0»LOCREC 
ORG LOCREC 
TXH 152 
TSX PRINT*4 
HTR MACHlN»0»MACHIN+5 
TSX PRINT»4 
HTR PR»0»PR+46 
TRA OIGRTN 
BCD 2 



FORCE NEW RECORD 
CARD FOR DE 

6376 FT 27 



BCD INDEX REGISTER 1 HAS BEEN INCREMENTED BEYOND THE MAXIMUM SET 



BCD TING PERMISSABLE IN THIS SECTION OF PROGRAM* 



BCD DESPITE A TEST IN THE ROUTINE WHICH PREVENTS THIS. PROGRAM 



BCD SHOULD BE ABLE TO OBTAIN D0TA6 ENTRY 



BCD 4F0R NEXT OUTER DO. 



u 



u 



n . n 



XJ L 



0X365 255160244633 

01366 606060606060 

01367 00000 00000 X 

A 00000 END 



1 ORG 153 

1 00231 

00231 01303 01400 

01303 

TO 01303 3 00000 00231 



01304 
01305 
01306 
01307 
01310 
01311 
01312 
01313 
01314 
01315 
01316 
01317 
01320 
01321 
01322 
01323 
01324 
01325 
01326 
01327 
01330 
01331 
01332 
01333 
01334 
01335 
01336 
01337 
01340 
01341 
01342 
01343 
01344 
01345 
01346 
01347 
01350 
01351 
01352 
01353 
01354 
01355 
01356 
01357 
01360 
01361 



07400 
01244 
50000 
77100 
62100 
50000 
40200 
62100 
76200 
46000 
70000 
50000 
77100 
07400 
60200 

-0 50000 
77100 
56000 

-0 76300 
60200 

-0 76300 
56000 

-0 77300 

-0 76300 
60200 
07400 
01377 



06306 
00740 
01237 
06306 
00022 
01400 
01377 
01400 
01340 
00304 
01340 
01400 
01400 
00022 
00613 
01400 
01350 
00022 
01400 
00022 
01350 
00022 
01351 
O0022 
00022 
01351 
00740 
01341 



02000 00221 
00000 00000 



606060606060 
606060606060 
633025603126 
604651602746 
606346606263 
216325442545 
636045644422 
255160606060 
606060603021 
626022252545 
602162623127 
452524602160 
234321626231 
263123216331 
464560303127 
302551606330 
214560063360 



TIFX 



A 
PR 



COMA 
COMB 



FORCE NEW RECORD 
ORG 153 

HTR X-1»0»LOCREC 
ORG LOCREC 
TXH 153 

153 

153 
SYN 3270 
TSX PRINT»4 
HTR MACHIN»0*MACHIN+5 
CLA TIFX 
ARS 18 
ST A TIFGO 
CLA TIFZ 
SUB TIFGO 
STA A 
RDR 4 
LOA A 
CPY TIFGO 
CLA TIFGO 
ARS 18 

TSX EXBETA*4 
SLW TIFGO 
CAL COMA 
ARS 18 
LDQ TIFGO 
LGL 18 
SLW COMA 
LGL 18 
LDQ COMB 
ROL 18 
LGL 18 
SLW COMB 
TSX PRINT»4 
HTR PR»0»PR+30 
TRA DIGRTN 



BCD 2 

BCD 5THE IF OR GO TO STATEMENT NUMB 



FORCE NEW RECORD 
CARD FOR DE 

5742 FT 27 

5763 FT 27 

5764 FT 27 
6306 OCTAL 



CURRENT INDEX TO TIFGO ENTRIES 

ADDRESS OF TIFGO BUFFER* THIS IS NOW 
ON DRUM 4 

INTERNAL NUMBER OF TIFGO IN DECREMENT 
GET EXTERNAL STATEMENT NUMBER 
123 FROM ABOVE INTO COMMENT 



45 FROM ABOVE INTO REST OF COMMENT 
SHIFT 2 CHARACTERS OUT OF MQ 



BCD 1ER 

BCD 1 HA 

BCD S BEEN ASSIGNED A CLASSIFICATION HIGHER THAN 6. 



u 



u 



r> 



O 



01362 


606060606060 






01363 


606060606060 






01364 


606060606060 




BCD 3 


01365 


606060606060 






01366 


606060606060 






01367 


633025604346 




BCD 8THE 


01370 


273123604626 






01371 


606330256047 






01372 


514627512144 






01373 


604421422562 






01374 


606330316260 






01375 


314447466262 






01376 


312243253360 






01377 


00000 03670 


TIF2 


HTR 1976 


01400 


00000 00000 


TIFGO 


HTR 


01401 


00000 00000 


X 






00000 




END 



BCD 8THE LOGIC OF THE PROGRAM MAKES THIS IMPOSSIBLE. 



3670 OCTAL 



1 




ORG 154 


1 




00232 




00232 


01303 01360 
01303 


TO 


01303 


3 00000 00232 




01304 


07400 4 00740 




01305 


01244 01237 




01306 


07400 4 00740 




01307 


01361 01311 




01310 


02000 00221 




01311 


606060606060 




01312 


606060606060 




01313 


234645632545 




01314 


636260462660 




01315 


244631452460 




01316 


744346232163 




01317 


314645600502 




01320 


030034602446 




01321 


604546636044 




01322 


216323306023 




01323 


464563254563 




01324 


626046266025 




01325 


316330255160 




01326 


632127022001 




01327 


730260607443 




01330 


462321633146 




01331 


456003060500 




01332 


347360606321 




01333 


270220027302 




01334 


606046516060 




01335 


606060606060 




01336 


606060606060 




01337 


632127022003 




01340 


730233606043 




01341 


462731236046 




01342 


266047514627 




01343 


512144604421 




01344 


422562606330 




01345 


316260314447 




01346 


466262312243 




01347 


253360606264 




01350 


225146646331 




01351 


452560663031 




01352 


233060232145 




01353 


454663602631 




01354 


452460442163 




01355 


233060316260 




01356 


216360434623 




01357 


216331464560 




01360 


040200043360 


A 


01361 


00000 00000 
00000 



PR 



FORCE NEW RECORD 
CARD FOR DE 

5773 FT 51 



FORCE NEW RECORD 
ORG 154 

HTR X-l*0»LOCREC 
ORG LOCREC 
TXH 154 
TSX PRINT»4 
HTR MACHIN»0»MACHlN+5 
TSX PRINT«4 
HTR PR»0»PR+40 
TRA DIGRTN 
BCD 2 

BCD CONTENTS OF DOIND (LOCATION 5230) DO NOT MATCH CONTENTS OF E 



BCD 1THER TAG2+1»2 (LOCATION 3650)* TAG2+2»2 OR 



BCD TAG2+3f2.' LOGIC OF PROGRAM MAKES THIS IMPOSSIBLE. SUBROUTI 



BCD 8NE WHICH CANNOT FIND MATCH IS AT LOCATION 4204. 



END 



u 



o 



n 



o 





ORG 155 

ftn 9 ■an 


00233 


01303 01357 




01303 


TO 01303 


3 00000 00233 


0130* 


07400 4 00740 


01305 


01244 01237 


01306 


07400 4 00740 


01307 


01360 01311 


01310 


02000 00221 


01311 


606060606060 


01312 


606060606060 


01313 


632122432560 


01314 


622521512330 


01315 


602621314364 


01316 


512533606043 


01317 


462731236046 


01320 


266047514627 


01321 


512144604421 


01322 


422562606330 


01323 


316260314447 


01324 


466262 312243 


01325 


253360606264 


01326 


225146646331 


01327 


452560216360 


01330 


434623216331 


01331 


464560060207 


01332 


076023464447 


01333 


314325626060 


01334 


606060606060 


01335 


606060606060 


01336 


606060606060 


01337 


215127644425 


01340 


456360744346 


01341 


232163314645 


01342 


600502040334 


01343 


606630312330 


01344 


606264225146 


01345 


646331452560 


01346 


216360434623 


01347 


216331464560 


01350 


060305046031 


01351 


626064452122 


01352 


432560634660 


01353 


442163233060 


01354 


314560216022 


01355 


434623426046 


01356 


266023464562 


01357 


632145636233 


01360 


00000 00000 


i 


00000 



FORCE NEW RECORD 
CARD FOR DE 

6353 FT 51 



PR 



FORCE NEW RECORD 
ORG 155 

HTR X-l»0#LOCREC 
ORG LOCREC 
TXH 155 
TSX PRINT»4 
HTR MACHIN»0»MACHIN+5 
XSX PR I NT 1 4 
HTR PR»0tPR+39 
TRA DIGRTN 
BCD 2 

BCD TABLE SEARCH FAILURE. LOGIC OF PROGRAM MAKES THIS IMPOSSIBL 



BCD E. SUBROUTINE AT LOCATION 6277 COMPILES 



BCD ARGUMENT {LOCATION 5243) WHICH SUBROUTINE AT LOCATION 6354 I 



BCD 7S UNABLE TO MATCH IN A BLOCK OF CONSTANTS. 



END 



1 




ORG 156 


FORCE 


NEW RECORD 


1 




00234 


ORG 


156 FORCE NEW RECORD 




00234 


01303 01351 


HTR 


X-1»0#L0CREC CARD FOR DE 


# 




01303 


ORG 


LOCREC 


TD 


01303 


3 00000 00234 


TXH 


156 ' 7110 FT 43 




01304 


07400 4 00740 


TSX 


PRINT»4 




01305 


01244 01237 


HTR 


MACHIN»0»MACHIN+5 




01306 


07400 4 00740 


TSX 


PRINT*4 




01307 


01352 01311 


HTR 


PR»0»PR+33 




01310 


02000 00221 


TRA 


DIGRTN 




01311 


606060606060 PR 


BCD 


2 




01312 


606060606060 








01313 


632122432560 


BCD 


TABLE BEGINNING AT LOCATION 6400 1 




01314 


222527314545 








01315 


314527602163 








01316 


604346232163 








01317 


314645600604 








01320 


000060302162 








01321 


602225254560 








01322 


465124255125 








01323 


246022706051 








01324 


466463314525 








01325 


602163604346 


BCD 


AT LOCATION 7053. 




01326 


232163314645 








01327 


600700050333 








01330 


606060606060 








01331 


606060606060 








01332 


606060606060 




o 




01333 


606060606060 








01334 


606060606060 








01335 


606060606060 








01336 


606060606060 








01337 


232162603145 


BCD 


CAS INSTRUCTION AT LOCATION 7105 J 




01340 


626351642363 








01341 


314645602163 








01342 


604346232163 








01343 


314645600701 








01344 


000560623046 








01345 


666260633021 








01346 


636063212243 








01347 


256031626046 








01350 


646360462660 








01351 


465124255133 


BCD 


10RDER. 




01352 


00000 00000 X 






A 




00000 


END 


.. „• 



M 



/ / 



(J 



O 



n 



n 



1 
1 




ORG 157 

00235 




00235 


01303 01414 
01303 


TO 


01303 


3 00000 00235 




01304 


07400 4 00740 




01305 


01244 01237 




01306 


07400 4 00740 




01307 


01415 01311 




01310 


02000 00221 




01311 


606060606060 




01312 


606060606060 




01313 


454660254563 




01314 


517060314560 




01315 


633126512524 




01316 


606321224325 




01317 


602646516021 




01320 


606521513121 




01321 


224325602651 




01322 


464460214560 




01323 


216262312745 




01324 


252460274660 




01325 


634660626321 




01326 


632544254563 




01327 


603145606330 




01330 


256023464447 




01331 


314325246031 




01332 


456263516423 




01333 


633146456233 




01334 


606060606060 




01335 


606060606060 




01336 


606060606060 




01337 


434627312360 




01340 


462660633025 




01341 


604751462751 




01342 


214460442142 




01343 


256260633031 




01344 


626031444746 




01345 


626231224325 




01346 


336060626346 




01347 


476044217060 




01350 


222560246425 




01351 


606346602551 




01352 


514651602270 




01353 


606264225146 




01354 


646331452560 




01355 


216360434623 




01356 


216331464560 




01357 


040305603145 




01360 


606330256060 




01361 


606060606060 




01362 


606060606060 




01363 


475125653146 




01364 


646260264651 



FORCE NEW RECORD 
ORG 157 

HTR X-1»0»L0CREC 

ORG LOCREC 

TXH 157 

TSX PRINT»4 

HTR MACHIN»0*MACHIN+5 

TSX PR I NT #4 



FORCE NEW RECORD 
CARD FOR DE 

354 FT 64 



HTR PR»0»PR+68 
TRA DIGRTN 
PR BCD 2 

BCD NO ENTRY IN TIFRED TABLE FOR A VARIABLE FROM AN ASSIGNED GO 



BCD TO STATEMENT IN THE COMPILED INSTRUCTIONS. 



BCD LOGIC OF THE PROGRAM MAKES THIS IMPOSSIBLE* STOP MAY BE DUE 



BCD TO ERROR BY SUBROUTINE AT LOCATION 435 IN THE 



BCD PREVIOUS FORTRAN RECORD* WHICH ACCUMULATES ASSIGNED GO TO EN 



01365 


635121456051 


01366 


252346512473 


01367 


606630312330 


01370 


602123236444 


01371 


644321632562 


01372 


602162623127 


01373 


452524602746 


01374 


606346602545 


01375 


635131256260 


01376 


216260316360 


01377 


512521246260 


01400 


632147256002 


01401 


602145246066 


01402 


513163256260 


01403 


606060606060 


01404 


606060606060 


01405 


606060606060 


01406 


606060606060 


01407 


633025446021 


01410 


626063302560 


01411 


633126512524 


01412 


606321224325 


01413 


604645602451 


01414 


644460013360 


01415 


00000 00000 




OOOOO 



BCD TRIES AS IT READS TAPE 2 AND WRITES 



BCD 6THEM AS THE TIFRED TABLE ON DRUM !• 



END 



u 



u 



r^ 



n 



1 




ORG 156 


FORCE 


NEW RECORD 


1 




00236 


ORG 


158 FORCE NEW RECORD 




00236 


01303 01360 


HTR 


X-1»0»L0CREC CARD FOR DE 






01303 


ORG 


LOCREC 


TO 


01303 


3 00000 00236 


TXH 


158 711 FT 62 




01304 


07400 4 00740 


TSX 


PRINT»4 




01305 


01244 01237 


HTR 


MACHIN*0»MACHIN+5 




01306 


07400 4 O0740 


TSX 


PRINT»4 




01307 


01361 01311 


HTR 


PR»0*PR+40 




01310 


02000 00221 


TRA 


DIGRTN 




01311 


606060606060 PR 


BCD 


2 




01312 


606060606060 








01313 


443162234644 


BCD 


MISCOMPILED ENTRY IN FRET TABLE* TAPE 2» FILE 5» RECORD 




01314 


473143252460 








01315 


254563517060 








01316 


314560265125 








01317 


636063212243 








01320 


257360632147 








01321 


256002736026 








01322 


314325600573 








01323 


605125234651 








01324 


246001023360 








01325 


604321626360 


BCD 


LAST WORD OF RECORD INTRODUCES 




01326 


664651246046 








01327 


266051252346 








01330 


512460314563 








01331 


514624642325 








01332 


626060606060 








01333 


606060606060 








01334 


606060606060 








01335 


606060606060 








01336 


606060606060 








01337 


452566606263 


BCD 


NEW STATEMENT NUMBER* BUT NO ENTRIES FOLLOW WHICH WOULD 




01340 


216325442545 








01341 


636045644422 








01342 


255173602264 








01343 


636045466025 








01344 


456351312562 








01345 


602646434346 








01346 


666066303123 








01347 


306066466443 








01350 


246027316525 








01351 


602651255064 


BCD 


8 FREQUENCY INFORMATION ABOUT THE STATEMENT, 




01352 


254523706031 








01353 


452646514421 








01354 


633146456021 








01355 


224664636063 








01356 


302560626321 








01357 


632544254563 








01360 


336060606060 






A 


01361 


00000 00000 X 
00000 


END 





12, 



I* 



TD 



ORG 159 
00237 01303 



01303 3 00000 

01304 07400 4 

01305 01244 

01306 07400 4 

01307 01371 

01310 02000 

01311 606060606060 

01312 606060606060 

01313 443162234644 

01314 473143252460 

01315 254563517060 

01316 314560233163 

01317 606321224325 

01320 336060633025 

01321 606370472560 

01322 462660626321 

01323 632544254563 

01324 602160312660 

01325 742534604501 

01326 736045027360 

01327 450360606060 

01330 606060606060 

01331 606060606060 

01332 606060606060 

01333 606060606060 

01334 606060606060 

01335 606060606060 

01336 606060606060 

01337 316260635121 

01340 456243216325 

01341 246063466063 

01342 712573606347 

01343 436021452460 

01344 635121336060 

01345 216063712560 

01346 302162602225 

01347 254560264664 

01350 452460314560 

01351 632122432560 

01352 462660234644 

01353 473143252460 

01354 314562635164 

01355 236331464562 

01356 736060606060 

01357 606060606060 

01360 606060606060 

01361 606060606060 

01362 606060606060 

01363 663031233060 

01364 316260454663 



00237 
01370 
01303 
00237 
00740 
01237 
00740 
01311 
00221 



PR 



FORCE NEW RECORD 
CARD FOR DE 

556 FT 64 



FORCE NEW RECORD 
ORG 159 

HTR X-l»0#LOCREC 
ORG LOCREC 
TXH 159 
TSX PRINTt4 
HTR MACHlNtO»MACHIN+5 
TSX PRINT»4 
HTR PR»0»PR+48 
TRA DIGRTN 
BCD 2 



BCD MISCGMPILED ENTRY IN CiT TABLE* THE TYPE OF STATEMENT 



IF 



BCD (E) Nit N2» N3 



BCD IS TRANSLATED TO TZEt TPL AND TRA. A TZE HAS BEEN FOUND IN 



BCD TABLE OF COMPILED INSTRUCTIONS* 



BCD 6WHICH IS NOT IN THIS SEQUENCE* 



u 



u 



n ' O 



01365 603145606330 

01366 316260622550 

01367 642545232533 

01370 606060606060 

01371 00000 00000 X 

00000 END 



1 




ORG 160 


FORCE 


NEW RECORD 


1 




00240 


ORG 


160 FORCE NEW RECORD 




00240 


01303 01317 


HTR 


X-1»0«L0CREC CARD FOR DE 






01303 


ORG 


LOCREC 


TO 


01303 


3 00000 00240 


TXH 


160 3001 FT 88 




01304 


07400 4 00740 


TSX 


PRINTt4 




01305 


01244 01237 


HTR 


MACHIN»0«MACHIN+5 




01306 


07400 4 00740 


TSX 


PRINTt4 




01307 


01320 01311 


HTR 


PR»0»PR+7 




01310 


02000 00221 


TRA 


DIGRTN 




01311 


606060606060 PR 


BCD 


2 




01312 


606060606060 








01313 


443162234644 


BCD 


5MISC0MPILED GO TO STATEMENT- 




01314 


473143252460 




» 




01315 


274660634660 








01316 


626321632544 








01317 


254563336060 






A 


01320 


00000 00000 X 
00000 


. END 





u 



u 



o 



1 




ORG 161 


FORCE 


NEW RECORD 


1 




00241 


ORG 


161 FORCE NEW RECORD 




00241 


01303 01317 


HTR 


X-1»0»LOCREC CARD FOR DE 






01303 


ORG 


LOCREC 


TD 


01303 


3 00000 00241 


TXH 


161 3253 FT 88 




01304 


07400 4 00740 


TSX 


PRINT»4 




01305 


01244 01237 


HTR 


MACHlN»0»MACHIN+5 




01306 


07400 4 00740 


TSX 


PR I NT* 4 




01307 


01320 01311 


HTR 


PR»0»PR+7 




01310 


02000 00221 


TRA 


DIGRTN 




01311 


606060606060 PR 


BCD 


2 




01312 


606060606060 








01313 


443162234644 


BCD 


5MISC0MPILED IF STATEMENT. 




01314 


473143252460 








01315 


312660626321 








01316 


632544254563 








01317 


336060606060 








01320 


00000 00000 X 






A 




00000 


END 





TD 



ORG 162 
00242 01303 



00242 
01331 
01303 
00242 
00740 
01237 
00740 
01311 
00221 



01303 3 OOOOO 

01304 07400 4 

01305 01244 

01306 07400 4 

01307 01332 

01310 02000 

01311 606060606060 

01312 606060606060 

01313 443162234644 

01314 473143252460 

01315 452144253360 

01316 603144474662 

01317 623122432560 

01320 222324602330 

01321 215121236325 

01322 516021626063 

01323 302560263151 

01324 626360233021 

01325 512123632551 

01326 603145602160 

01327 627044224643 

01330 312360212424 

01331 512562623360 

01332 OOOOO OOOOO 

OOOOO 



PR 



FORCE NEW RECORD 

ORG 162 

HTR X-ltO»LOCREC 

ORG LOCREC 

TXH 162 

TSX PRINTt4 

HTR MACHIN»0»MACHIN+5 

TSX PRINT»4 

HTR PR»0»PR+17 

TRA DIGRTN 

BCD 2 



FORCE NEW RECORD 
CARD FOR DE 

345 FT 5 



BCD MISCOMPILED NAME* IMPOSSIBLE BCD CHARACTER AS THE t"IRST CHA 



BCD 5RACTER IN A SYMBOLIC ADDRESS. 



END 



u 



u 



n 



TO 





ORG 163 




00243 


00243 


01303 01316 




01303 


01303 


3 00000 00243 


01304 


07400 4 00740 


01305 


01244 01237 


01306 


07400 4 00740 


01307 


01317 01311 


01310 


02000 00221 


01311 


606060606060 


01312 


606060606060 


01313 


443162234644 


01314 


473143252460 


01315 


627045464570 


01316 


443360606060 


01317 


00000 00000 



PR 



)RCE NEW RECORD 




ORG 163 


FORCE NEW RECORD 


HTR X-1»0»L0CREC 


CARD FOR DE 


ORG LOCREC 




TXH 163 


443 FT 103 


163 


520 FT 113 


TSX PRINT. 4 




HTR MACHIN?0sMACHI?i-f 5 




TSX PRINTt4 




HTR PR»0»PR+6 




TRA DIGRTN 




BCD 2 





BCD 4MISC0MPILED SYNONYM. 



END 



1 




ORG 164 


FORCE 


NEW RECORD 


1 




00244 


ORG 


164 FORCE NEW RECORD 




00244 


01303 01324 


HTR 


X-ltO»LOCREC CARD FOR DE 






01303 


ORG 


LOCREC 


TD 


01303 


3 00000 00244 


TXH 


164 252 FT 105 




01304 


07400 4 00740 


TSX 


PRINT»4 




01305 


01244 01237 


HTR 


MACHlN»0»MACHIN+5 




01306 


07400 4 00740 


TSX 


PRINTt4 




01307 


01325 01311 


HTR 


PR»0fPR+12 




01310 


02000 00221 


TRA 


DIGRTN 




01311 


606060606060 PR 


BCD 


2 




01312 


606060606060 








01313 


443162234644 


BCD 






01314 


473143252460 








01315 


452144253360 








01316 


602646516264 








01317 


226025456351 








01320 


706045466360 








01321 


314560627044 








01322 


224643606321 








01323 


224325336060 








01324 


606060606060 








01325 


00000 00000 X 






A 




00000 


END. 





IN SYMBOL TABLE* 



u 



u 



r\ 



1 




ORG 165 


FORCE 


NEW RECORD 


1 




00245 


ORG 


165 




00245 


01303 01323 


HTR 


X-UO»LOCREC 






01303 


ORG 


LOCREC 


TO 


01303 


3 00000 00245 


TXH 


165 




01304 


07400 4 00740 


TSX 


PRINT.4 




01303 


01244 01237 


HTR 


MACHINfO#MACHIN+5 




01306 


07400 4 00740 


TSX 


PR I NTs 4 




01307 


01324 01311 


HTR 


PR»OtPR+ll 




01310 


02000 00221 


TRA 


DIGRTN 




01311 


606060606060 PR 


BCD 


2 




01312 


606060606060 








01313 


443162234644 


BCD 


9MISC0MPILED NAME 




01314 


473143252460 








01315 


452144253360 








01316 


652151312122 








01317 


432560452144 








01320 


256045466360 








01321 


314560627044 








01322 


224643606321 








01323 


224325336060 








01324 


00000 00000 X 






A 




00000 


END 





FORCE NEW RECORD 
CARD FOR DE 

312 FT 113 



1 ORG 166 

1 00246 

00246 01303 01332 

01303 

TO 01303 3 OOOOO 00246 

01304 07400 4 00740 

01305 01244 01237 

01306 07400 4 00740 

01307 01333 01311 

01310 02000 00221 

01311 606060606060 

01312 606060606060 

01313 314524256760 

01314 512527316263 

01315 255160264651 

01316 602364515125 

01317 456360632127 

01320 603021626045 

01321 466360222525 

01322 456023304662 

01323 2545336060^3 

01324 462731236046 

01325 266047514627 

01326 512144604421 

01327 422562606330 

01330 316260314447 

01331 466262312243 

01332 253360606060 

01333 00000 00000 
A 00000 



PR 



FORCE 


NEW RECORD 




ORG 


166 


FORCE NEW RECORD 


HTR 


X-1»0»LOCREC 


CARD FOR DE 


ORG 


LOCREC 




TXH 


166 


661 FT 75 




166 


1022 FT 75 


TSX 


PRINTt4 




HTR 


MACHlN»0*MACHIN+5 




TSX 


PRINT»4 




HTR 


PR»0»PR+18 




TRA 


DIGRTN 




BCD 


2 





BCD INDEX REGISTER FOR CURRENT TAG HAS NOT BEEN CHOSEN. LOGIC 



BCD 6F PROGRAM MAKES THIS IMPOSSIBLE. 



END 



o 



o 



o 



r) 



1 


ORG 167 


1 


00247 


00247 


01303 01355 




01303 


TD 01303 


3 00000 00247 


01304 


07400 4 00740 


01305 


01244 01237 


01306* 


07400 4 00740 


01307 


01356 01311 


01310 


02000 00221 


01311 


606060606060 


01312 


606060606060 


01313 


626422514664 


01314 


633145256021 


01315 


636043462321 


01316 


633146456002 


01317 


070660302162 


01320 


602163632544 


01321 


476325246063 


01322 


466051252124 


01323 


602145466330 


01324 


255160226426 


01325 


262551604626 


01326 


606330256026 


01327 


512563606321 


01330 


224325604645 


01331 


602451644460 


01332 


023360602160 


01333 


475125653146 


01334 


646260606060 


01335 


606060606060 


01336 


606060606060 


01337 


472162626063 


01340 


305146642730 


01341 


606330316260 


01342 


514664633145 


01343 


256030216260 


01344 


622563602160 


01345 


623127452143 


01346 


606346606230 


01347 


466660633021 


01350 


636021434360 


01351 


265125636025 


01352 


456351312562 


01353 


602151256031 


01354 


456023465125 


01355 


336060606060 


01356 


00000 00000 


A 


00000 



PR 



FORCE NEW RECORD 
CARD FOR DE 

301 FT 67 



FORCE NEW RECORD 

ORG 167 

HTR X-1»0»LOCREC 

ORG LOCREC 

TXH 167 

TSX PRINTt4 

HTR MACHIN»0»MACHIN+5 

TSX PRIN7»4 

HTR PR»0»PR+37 

TRA DIGRTN 

BCD 2 

BCD SUBROUTINE AT LOCATION 276 HAS ATTEMPTED TO READ ANOTHER BUF 



BCD FER OF THE FRET TABLE ON DRUM 2. A PREVIOUS 



BCD PASS THROUGH THIS ROUTINE HAS SET A SIGNAL TO SHOW THAT ALL 



BCD 5FRET ENTRIES ARE IN CORE. 



END 



1 




ORG 168 


1 




00250 




00250 


01303 01357 
01303 


TD 


01303 


3 00000 00250 




01304 


07400 4 00740 




01305 


01244 01237 




01306 


07400 4 00740 




01307 


01360 01311 




01310 


02000 00221 




01311 


606060606060 




01312 


606060606060 




01313 


626422514664 




01314 


633145256021 




01315 


636043462321 




01316 


633146456003 




01317 


000604603021 




01320 


626021636325 




01321 


444763252460 




01322 


634660512521 




01323 


246021454663 




01324 


302551602264 




01325 


262625516046 




01326 


266063302560 




01327 


633126512460 




01330 


632122432560 




01331 


265146446024 




01332 


516444600133 




01333 


606060606060 




01334 


606060606060 




01335 


606060606060 




01336 


606060606060 




01337 


216047512565 




01340 


314664626047 




01341 


216262606330 




01342 


514664273060 




01343 


633031626051 




01344 


466463314525 




01345 


603021626062 




01346 


256360216062 




01347 


312745214360 




01350 


634660623046 




01351 


666063302163 




01352 


602143436063 




01353 


312651246025 




01354 


456351312562 




01355 


602151256031 




01356 


456023465125 




01357 


336060606060 


A 


01360 


00000 00000 
00000 



PR 



FORCE NEW RECORD 
CARD FOR DE 

3064 FT 64 



FORCE NEW RECORD 
ORG 168 

HTR X-l»0tL0CREC 
ORG LOCREC 
TXH 168 
TSX PRINT»4 
HTR MACHIN»0»MACHIN+5 
TSX PRINT#4 
HTR PR»0*PR+39 
TRA DIGRTN 
BCD 2 



BCD SUBROUTINE AT LOCATION 3064 HAS ATTEMPTED TO READ ANOTHER BU 



BCD FFER OF THE TIFRD TABLE FROM DRUM 1. 



BCD A PREVIOUS PASS THROUGH THIS ROUTINE HAS SET A SIGNAL TO SHO 



BCD 7W THAT ALL TIFRD ENTRIES ARE IN CORE« 



END 



U 



u 



n 



n 



1 ORG 169 

1 00251 

00251 01303 01327 

01303 

TO 01303 3 00000 00251 



01304 07400 4 00740 

01305 01244 01237 

01306 07400 4 00740 

01307 01330 01311 

01310 02000 00221 

01311 606060606060 

01312 606060606060 

01313 472551446463 

01314 216331464560 

01315 456444222551 

01316 604421632330 

01317 604546636026 

01320 466445243360 

01321 604346273123 

01322 604626604751 

01323 462751214460 

01324 442142256260 

01325 633031626031 

01326 444746626231 

01327 224325336060 
01330 00000 00000 

00000 



PR 



FORCE 


NEW RECORD 








ORG 


*169 


FORCE 


NEW 


RECORD 


HTR 


X-1»0«L0CREC 


CARD 


FOR 


DE 


ORG 


LOCREC 








TXH 


169 


762 


FT 


75 




169 


1634 


FT 


75 




169 


1777 


FT 


75 




169 


4031 


FT 


75 




169 


4303 


FT 


75 


TSX 


PRINT»4 








HTR 


MACHlN»0»MACHIN+5 








TSX 


PRINT»4 








HTR 


PR»0»PR+15 








TRA 


DIGRTN 








BCD 


2 









BCD PERMUTATION NUMBER MATCH NOT FOUND. LOGIC OF PROGRAM MAKES 



BCD 3THIS IMPOSSIBLE. 



END 



1/ 



1 




ORG 170 


I 




00252 




00252 


01303 01416 
01303 


TD 


01303 


3 00000 00252 




01304 


07400 4 00740 




01305 


01244 01237 




01306 


07400 4 00740 




01307 


01417 01311 




01310 


02000 00221 




01311 


606060606060 




01312 


606060606060 




01313 


255151465160 




01314 


314560234644 




01315 


476463314527 




01316 


602330252342 




01317 


606264446046 




01320 


266026434623 




01321 


464560632122 




01322 


432533606063 




01323 


303162606321 




01324 


224325602346 




01325 


456231626362 




01326 


604626602243 




01327 


462342626046 




01330 


266026312663 




01331 


706066465124 




01332 


627360252123 




01333 


306022434623 




01334 


426060606060 




01335 


606060606060 




01336 


606060606060 




01337 


475125232524 




01340 


252460227060 




01341 


316362604666 




01342 


456023302523 




01343 


426062644433 




01344 


606063302560 




01345 


212343603145 




01346 


626351642363 




01347 


314645602163 




01350 


604346232163 




01351 


314645600102 




01352 


060160302162 




01353 


604731234225 




01354 


246064476063 




01355 


302560233025 




01356. 


234260626444 




01357 


604626606060 




01360 


606060606060 




01361 


606060606060 




01362 


606060606060 




01363 


633025604525 




01364 


676360224346 



PR 



FORCE NEW RECORD 
CARD FOR DE 

1307 FT 22 



FORCE NEW RECORD 
ORG 170 

HTR X-l»0#LOCREC 
ORG LOCREC 
TXH 170 
TSX PRINT»4 
HTR MACHlN»0#MACHIN+5 
TSX PRINT»4 
HTR PR»0»PR+70 
TRA DIGRTN 
BCD 2 

BCD ERROR IN COMPUTING CHECK SUM OF FLOCON TABLE. THIS TABLE CO 



BCD NSISTS OF BLOCKS OF FIFTY WORDS* EACH BLOCK 



BCD PRECEDED BY ITS OWN CHECK SUM, THE ACL INSTRUCTION AT LOCAT 



BCD ION 1261 HAS PICKED UP THE CHECK SUM OF 



BCD THE NEXT BLOCK AND THE TNX INSTRUCTION AT 1263 SHOWS THAT TH 



o 



o 



n 



01365 23*260214524 

01366 606330256063 

01367 456760314562 

01370 635164236331 

01371 464560216360 

01372 010206036062 

01373 304666626063 

01374 302163606330 

01375 255125602151 

01376 256045466025 

01377 456351312562 

01400 603145606330 

01401 256022434623 

01402 423360606060 

01403 606060606060 

01404 606060606060 

01405 606060606060 

01406 606060606060 

01407 633025604346 

01410 273123604626 

01411 606330256047 

01412 514627512144 

01413 604421422562 

01414 606330316260 

01415 314447466262 

01416 312243253360 

01417 00000 00000 X 

ooooo 



BCD ERE ARE NO ENTRIES IN THE BLOCK* 



BCD 8THE LOGIC OF THE PROGRAM MAKES THIS IMPOSSIBLE. 



END 



1 




ORG 171 


1 




00253 




00253 


01303 01357 
01303 


TD 


01303 


3 00000 00253 




01304 


07400 4 00740 




01305 


01244 01237 




01306 


07400 4 00740 




01307 


01360 01311 




01310 


02000 00221 




01311 


606060606060 




01312 


606060606060 




01313 


314447466262 




01314 


312243256063 




01315 


512145622625 




01316 


516063466026 




01317 


315162636031 




01320 


456263516423 




01321 


633146456026 




01322 


464343466631 




01323 


452760232162 




01324 


603145626351 




01325 


642363314645 




01326 


602163604346 




01327 


232163314645 




01330 


600100070533 




01331 


606063435060 




01332 


314562635164 




01333 


236331464560 




01334 


606060606060 




01335 


606060606060 




01336 


606060606060 




01337 


216360434623 




01340 


216331464560 




01341 


010007036030 




01342 


216260416462 




01343 


636047514665 




01344 


252460633021 




01345 


636066465124 




01346 


602651464460 




01347 


434623216331 




01350 


464560010400 




01351 


066031626043 




01352 


256262606330 




01353 


214560664651 




01354 


246031456043 




01355 


462321633146 




01356 


456001040100 




01357 


336060606060 


A 


01360 


00000 00000 
00000 



PR 



FORCE NEW RECORD 
ORG 171 

HTR X-l»0»LOCREC 
ORG LOCREC 
TXH 171 
TSX PRINT»4 
HTR MACHIN*0»MACHIN+5 
TSX PRINT*4 
HTR PR»0»PR+39 
TRA DIGRTN 
BCD 2 



FORCE NEW RECORD 
CARD FOR DE 

1076 FT 45 



BCD IMPOSSIBLE TRANSFER TO FIRST INSTRUCTION FOLLOWING CAS INSTR 



BCD UCTION AT LOCATION 1075. TLO INSTRUCTION 



BCD AT LOCATION 1073 HAS JUST PROVED THAT WORD FROM LOCATION 140 



BCD 76 IS LESS THAN WORD IN LOCATION 1410. 



END 



u 



u 



r\ 



1 




ORG 172 


1 




00254 




00254 


01303 01357 
01303 


TD 


01303 


3 00000 00254 




01304 


07400 4 00740 




01305 


01244 01237 




01306 


07400 4 00740 




01307 


01360 01311 




01310 


02000 00221 




01311 


606060606060 




01312 


606060606060 




01313 


314447466262 




01314 


312243256063 




01315 


512145622625 




01316 


516063466026 




01317 


315162636031 




01320 


456263516423 




01321 


633146456026 




01322 


464343466631 




01323 


452760232162 




01324 


603145626351 




01325 


642363314645 




01326 


602163604346 




01327 


232163314645 




01330 


600406020233 




01331 


606063435060 




01332 


314562635164 




01333 


236331464560 




01334 


606060606060 




01335 


606060606060 




01336 


606060606060 




01337 


216360434623 




01340 


216331464560 




01341 


040602006030 




01342 


216260416462 




01343 


636047514665 




01344 


252460633021 




01345 


636066465124 




01346 


602651464460 




01347 


434623216331 




01350 


464560050204 




01351 


036031626043 




01352 


256262606330 




01353 


214560664651 




01354 


246031456043 




01355 


462321633146 




01356 


456005020406 




01357 


336060606060 


A 


01360 


00000 00000 
00000 



FORCE NEW RECORD 
ORG 172 

HTR X-l#0tLOCREC 
ORG LOCREC 
TXH 172 
TSX PRlNTt4 
HTR MACHIN»G»MACHIN+5 
TSX PR I NT* 4 



FORCE NEW RECORD 
CARD FOR DE 

4623 FT 51 



HTR PR»0»PR+39 
TRA DIGRTN 
PR BCD 2 

BCD IMPOSSIBLE TRANSFER TO FIRST INSTRUCTION FOLLOWING CAS INSTR 



BCD UCTION AT LOCATION 4622. TLO INSTRUCTION 



BCD AT LOCATION 4620 HAS JUST PROVED THAT WORD FROM LOCATION 524 



BCD 73 IS LESS THAN WORD IN LOCATION 5246. 



END 



1 




ORG 173 


FORCE 


NEW RECORD 


1 




00255 


ORG 


173 FORCE NEW RECORD 




00255 


01303 01333 


HTR 


X-l»0«LOCREC CARD FOR DE 






01303 


ORG 


LOCREC 


TD 


01303 


3 00000 00255 


TXH 


173 5232 FT 34 




01304 


07400 4 00740 


TSX 


PRINT#4 




01305 


01244 01237 


HTR 


MACHlN»0«MACHIN+5 




01306 


07400 4 00740 


TSX 


PRINT#4 




01307 


01334 01311 


HTR 


PR#0»PR+19 




01310 


02000 00221 


TRA 


DIGRTN 




01311 


606060606060 PR 


BCD 


2 




01312 


606060606060 








01313 


314447466262 


BCD 


IMPOSSIBLE ERROR RETURN FROM SUBR< 




01314 


312243256025 








01315 


515146516051 








01316 


256364514560 








01317 


265146446062 








01320 


642251466463 








01321 


314525602163 








01322 


604346232163 








01323 


314645600505 








01324 


060633606043 








01325 


462731236046 


BCD 


70GIC OF PROGRAM MAKES THIS IMPOSS] 




01326 


266047514627 








01327 


51214460*421 








01330 


422562606330 








01331 


316260314447 








01332 


466262312243 








01333 


253360606060 








01334 


00000 00000 X 






A 




00000 


END 


_. 



u 



o 



n 



n 



1 


ORG 174 


i 


00256 


00256 


01303 01347 




01303 


TD 01303 


3 00000 00256 


01304 


07400 4 00740 


01305 


01244 01237 


01306 


07400 4 00740 


01307 


01350 01311 


01310 


02000 00221 


01311 


606060606060 


01312 


606060606060 


01313 


314447466262 


01314 


312243256025 


01315 


506421433163 


01316 


706023464524 


01317 


316331464560 


01320 


212663255160 


01321 


232162603145 


01322 


626351642363 


01323 


314645602163 


01324 


604346232163 


01325 


314645600401 


01326 


020260663031 


01327 


233060234644 


01330 


472151256260 


01331 


606060606060 


01332 


606060606060 


01333 


606060606060 


01334 


606060606060 


01335 


6,06060606060 


01336 


606060606060 


01337 


314563255145 


01340 


214360264651 


01341 


446443216045 


01342 


644422255162 


01343 


604626602431 


01344 


262625512545 


01345 


636062632163 


01346 


254425456362 


01347 


336060606060 


01350 


00000 00000 


A 


00000 



PR 



FORCE NEW RECORD 
CARD FOR OE 

4124 FT 51 



FORCE NEW RECORD 
ORG 174 

HTR X-l»0*LOCREC 
ORG LOCFEC 
TXH 174 
TSX PRINT»4 
HTR MACHIN»0#MACHIN+5 
TSX PRINT#4 
HTR PRt0»PR+31 
TRA DIGRTN 
BCD 2 

BCD IMPOSSIBLE EQUALITY CONDITION AFTER CAS INSTRUCTION AT LOCAT 



BCD ION 4122 WHICH COMPARES 



BCD 9INTERNAL FORMULA NUMBERS OF DIFFERENT STATEMENTS. 



END 



1 


ORG 175 


FORCE 


NEW RECORD 


1 


00257 


ORG 


175 FORCE NEW RECORD 


00257 


01303 01347 


HTR 


X-l»0«LOCREC CARD FOR DE 




01303 • 


ORG 


LOCREC 


TD 01303 


3 00000 00257 


TXH 


175 4157 FT 51 


01304 


07400 4 00740 


TSX 


PRINT»4 


01305 


01244 01237 


HTR 


MACHlN»0»MACHIN+5 


01306 


07400 4 00740 


TSX 


PRINTt4 


01307 


01350 01311 


HTR 


PR»0»PR+31 


01310 


02000 00221 


TRA 


DIGRTN 


01311 


606060606060 PR 


BCD 


2 


01312 


606060606060 






01313 


314447466262 


BCD 


IMPOSSIBLE EQUALITY CONDITION AFT 


01314 


312243256025 






01315 


506421433163 






01316 


706023464524 






01317 


316331464560 






01320 


212663255160 






01321 


232162603145 






01322 


626351642363 






01323 


314645602163 






01324 


604346232163 






01325 


314645600401 


BCD 


ION 4155 WHICH COMPARES 


01326 


050560663031 






01327 


233060234644 






01330 


472151256260 






01331 


606060606060 






01332 


606060606060 






01333 


606060606060 






01334 


606060606060 






01335 


606060606060 






01336 


606060606060 






01337 


314563255145 


BCD 


9INTERNAL FORMULA NUMBERS OF DIFFEF 


01340 


214360264651 






01341 


446443216045 






01342 


644422255162 






01343 


604626602431 






01344 


262625512545 






01345 


636062632163 






01346 


254425456362 






01347 


336060606060 






01350 


00000 00000 X 






A 


00000 


END 





(J 



u 



n 



.3 L 



1 




ORG 176 


1 




00260 




00260 


01303 01347 
01303 


TD 


01303 


3 00000 00260 




01304 


07400 4 00740 




01305 


01244 01237 




01306 


07400 4 00740 




01307 


01350 01311 




01310 


02000 00221 




01311 


606060606060 f 




01312 


606060606060 




01313 


3X4447466262 




01314 


312243256025 




01315 


506421433163 




01316 


706023464524 




01317 


316331464560 




01320 


212663255160 




01321 


232162603145 




01322 


626351642363 




01323 


314645602163 




01324 


604346232163 




01325 


314645600404 




01326 


000360663031 




01327 


233060234644 




01330 


472151256260 




01331 


606060606060 




01332 


606060606060 




01333 


606060606060 




01334 


606060606060 




01335 


606060606060 




01336 


606060606060 




01337 


314563255145 




01340 


214360264651 




01341 


446443216045 




01342 


644422255162 




01343 


604626602431 




01344 


262625512545 




01345 


636062632163 




01346 


254425456362 




01347 


336060606060 


A 


01350 


00000 00000 X 
00000 



PR 



FORCE NEW RECORD 
CARD FOR DE 

4405 FT 34 



FORCE NEW RECORD 
ORG 176 

HTR X-1#0»L0CREC 
ORG LOCREC 
TXH 176 
TSX PRINTt4 
HTR MACHlN»0»MACHIN+5 
TSX PRINT#4 
HTR PR»0»PR+31 
TRA DIGRTN 
BCD 2 

BCD IMPOSSIBLE EQUALITY CONDITION AFTER CAS INSTRUCTION AT LOCAT 



BCD ION 4403 WHICH COMPARES 



BCD 9INTERNAL FORMULA NUMBERS OF DIFFERENT STATEMENTS. 



END 



1 


ORG 177 


FORCE NEW RECORD 


1 


00261 


ORG 177 FORCE NEW RECORD 


00261 


01303 01347 


HTR X-1»0»L0CREC CARD FOR DE 




01303 


ORG LOCREC 


TD 01303 


3 00000 00261 


TXH 177 4533 FT 51 


01304 


07400 4 00740 


TSX PRlNTf4 


01305 


01244 01237 


HTR MACHlN»0tMACHIN*5 


01306 


07400 4 00740 


TSX PRINT»4 


01307 


01350 001311 


HTR PR*Q*PR+31 


01310 


02000 00221 


TRA DIGRTN 


01311 


606060606060 PR 


BCD 2 


01312 


606060606060 




01313 


314447466262 


BCD IMPOSSIBLE EQUALITY CONDITION AFTI 


01314 


312243256025 




01315 


506421433163 




01316 


706023464524 




01317 


316331464560 




01320 


212663255160 




01321 


232162603145 




01322 


626351642363 




01323 


314645602163 




01324 


604346232163 




01325 


314645600405 


BCD ION 4531 WHICH COMPARES 


01326 


030160663031 




01327 


233060234644 




01330 


472151256260 




01331 


606060606060 




01332 


606060606060 




01333 


606060606060 




01334 


606060606060 




01335 


606060606060 




01336 


606060606060 




01337 


314563255145 


BCD 9INTERNAL FORMULA NUMBERS OF DIFFEF 


01340 


214360264651 




01341 


446443216045 




01342 


644422255162 




01343 


604626602431 




01344 


262625512545 




01345 


636062632163 




01346 


254425456362 




01347 


336060606060 




01350 


00000 00000 X 




A 


OOOOO 


END 



u 



u 



v I 



r^ 



n 



1 




ORG 178 


1 




00262 




00262 


01303 01347 
01303 


TO 


01303 


3 00000 00262 




01304 


07400 4 00740 




01305 


01244 01237 




01306 


07400 4 00740 




01307 


013500 01311 




01310 


02000 00221 




01311 


606060606060 




01312 


606060606060 




01313 


314447466262 




01314 


312243256025 




01315 


506421433163 




01316 


706023464524 




01317 


316331464560 




01320 


212663255160 




01321 


232162603145 




01322 


626351642363 




01323 


314645602163 




01324 


604346232163 




01325 


314645600507 




01326 


010760663031 




01327 


233060234644 




01330 


472151256260 




01331 


606060606060 




01332 


606060606060 




01333 


606060606060 




01334 


606060606060 




01335 


606060606060 




01336 


606060606060 




01337 


314563255145 




01340 


214360264651 




01341 


446443216045 




01342 


644422255162 




01343 


604626602431 




01344 


262625512545 




01345 


636062632163 




01346 


254425456362 




01347 


336060606060 


A 


01350 


00000 00000 

ooooo 



PR 



FORCE NEW RECORD 
CARD FOR DE 

5721 FT 27 



FORCE NEW RECORD 
ORG 178 

HTR X-*l»0tLOCREC 
ORG LOCREC 
TXH 178 
TSX PRINT»4 
HTR MACHlN»0tMACHIN+5 
TSX PRINT»4 
HTR PR»0»PR+31 
TRA DIGRTN 
BCD 2 

BCD IMPOSSIBLE EQUALITY CONDITION AFTER CAS INSTRUCTION AT LOCAT 



BCD ION 5717 WHICH COMPARES 



BCD 9INTERNAL FORMULA NUMBERS OF DIFFERENT STATEMENTS. 



END 



/ 



TO 





ORG 179 




00263 


00263 


01303 01347 




01303 


01303 


3 00000 00263 


01304 


07400 4 00740 


01305 


01244 01237 


01306 


07400 4 00740 


01307 


01350 01311 


01310 


02000 00221 


01311 


606060606060 


01312 


606060606060 


01313 


314447466262 


01314 


312243256025 


01315 


506421433163 


01316 


706023464524 


01317 


316331464560 


01320 


212663255160 


01321 


232162603145 


01322 


626351642363 


01323 


314645602163 


01324 


604346232163 


01325 


314645600602 


01326 


050160465160 


01327 


060205043360 


01330 


514664633145 


01331 


256021452143 


01332 


706225626024 


01333 


312626255125 


01334 


456360606060 


01335 


606060606060 


01336 


606060606060 


01337 


626422622351 


01340 


314763626021 


01341 


266325516024 


01342 


644743312321 


01343 


632562603021 


01344 


652560222525 


01345 


456025433144 


01346 


314521632524 


01347 


336060606060 


01350 


00000 00000 




00000 



PR 



FORCE 


NEW RECORD 


- 


ORG 


179 


FORCE NEW RECORD 


HTR 


X-l»OtLOCREC 


CARD FOR DE 


ORG 


LOCREC 




TXH 


179 


6253 FT 32 




179 


6256 FT 32 


TSX 


PRINT»4 




HTR 


MACHINtOfMACHIN+5 




TSX 


PRINTt4 




HTR 


PR»0«PR+31 




TRA 


DIGRTN 




BCD 


2 





BCD IMPOSSIBLE EQUALITY CONDITION AFTER CAS INSTRUCTION AT LOCAT 



BCD ION 6251 OR 6254. ROUTINE ANALYSES DIFFERENT 



BCD 9SUBSCRIPTS AFTER DUPLICATES HAVE BEEN ELIMINATED* 



END 



u 



a 



n 



o 



1 




ORG 180 


FORCE 


NEW RECORD 


1 




00264 


ORG 


180 FORCE NEW RECORD 




00264 


01303 01347 


HTR 


X-l»Q*LOCREC CARD FOR DE 






01303 


ORG 


LOCREC 


TO 


01303 


3 00000 00264 


TXH 


180 6635 FT 27 




01304 


07400 4 00740 


TSX 


PRINTt4 




01305 


01244 01237 


HTR 


MACHlN»0»MACHlN+5 




01306 


07400 4 00740 


▼ *- v 


PRINT* 4 




01307 


01350 01311 


HTR 


PR»0*PR+31 




01310 


02000 00221 


TRA 


DIGRTN 




01311 


606060606060 PR 


BCD 


2 




01312 


606060606060 








01313 


314447466262 


BCD 


IMPOSSIBLE EQUALITY CONDITION AFT 




01314 


312243256025 








01315 


506421433163 






4 


01316 
01317 
01320 
01321 
01322 
01323 
01324 


706023464524 
316331464560 
212663255160 
232162603145 
626351642363 
314645602163 
604346232163 








01325 


314645600606 


BCD 


ION 6633 WHICH COMPARES 




01326 


030360663031 








01327 


233060234644 








01330 


472151256260 








01331 


606060606060 








Q1332 


606060606060 








01333 


606060606060 




• 




01334 


606060606060 








01335 


606060606060 








01336 


606060606060 








01337 


314563255145 


BCD 


9 INTERNAL FORMULA NUMBERS OF D1FFE 




01340 


214360264651 








01341 


446443216045 








01342 


644422255162 








01343 


604626602431 








01344 


262625512545 








01345 


636062632163 








01346 


254425456362 








01347 


336060606060 






A 


01350 


00000 00000 X 
00000 


END 


- 



1 


ORG 181 


1 


00265 


00265 


01303 01347 




01303 


TO 01303 


3 OOOOO 00265 


01304 


07400 4 00740 


01305 


01244 01237 


01306 


07400 4 00740 


01307 


01350 01311 


01310 


02000 00221 


01311 


606060606060 


01312 


606060606060 


01313 


314447466262 


01314 


312243256025 


01315 


506421433163 


01316 


706023464524 


01317 


316331464560 


01320 


212663255160 


01321 


232162603145 


01322 


626351642363 


01323 


314645602163 


01324 


604346232163 


01325 


314645600700 


01326 


020160663031 


01327 


233060234644 


01330 


472151256260 


01331 


606060606060 


01332 


606060606060 


01333 


606060606060 


01334 


606060606060 


01335 


606060606060 


01336 


606060606060 


01337 


314563255145 


01340 


214360264651 


01341 


446443216045 


01342 


644422255162 


01343 


604626602431 


01344 


262625512545 


01345 


636062632163 


01346 


254425456362 


01347 


606060606060 


01350 


OOOOO OOOOO 


A 


OOOOO 



PR 



FORCE NEW RECORD 
CARD FOR OE 

7023 FT 27 



FORCE NEW RECORD 
ORG 181 

HTR X-ltOtLOCREC 
ORG LOCREC 
TXH 181 
TSX PRINTt4 
HTR MACHlNtOfMACHIN+5 
TSX PRINT»4 
HTR PR»0tPR+31 
TRA DIGRTN 
BCD 2 

BCD IMPOSSIBLE EQUALITY CONDITION AFTER CAS INSTRUCTION AT LOCAT 



BCD ION 7021 WHICH COMPARES 



BCD 9 INTERNAL FORMULA NUMBERS OF DIFFERENT STATEMENTS 



END 



u 



u 



r 



n 



1 




ORG' 182 


FORCE 


NEW RECORD 


1 




00266 


ORG 


182 FORCE MEW RECORD 




00266 


01303 01347 


HTR 


X~-1*0»LGCREC CARD FOR DE 






01303 


ORG 


LOCREC 


TD 


01303 


3 OOGOO 00266 


TXH 


182 7073 FT 39 




. 01304 


07400 4 00740 


TSX 


PRINT»4 




01305 


01244 01237 


HTR 


MACHIN*0»MACHIN+5 




01306 


07400 4 00740 


TSX 


PRINTf4 




01307 


01350 01311 


HTR 


PR»0»PR+31 




01310 


02000 00221 


TRA 


DIGRTN 




01311 


606060606060 PR 


BCD 


2 




01312 


606060606060 








01313 


314447466262 


BCD 


IMPOSSIBLE EQUALITY CONDITION AFTi 




01314 


312243256025 








01315 


506421433163 








01316 


706023464524 








01317 


316331464560 








01320 


212663255160 








01321 


232162603145 








01322 


626351642363 








01323 


314645602163 








01324 


604346232163 








01325 


314645600700 


BCD 


ION 7071 WHICH COMPARES 




01326 


070160663031 








01327 


233060234644 








01330 


472151256260 








01331 


606060606060 








01332 


606060606060 








01333 


606060606060 








01334 


606060606060 








01335 


606060606060 








01336 


606060606060 








01337 


314563255145 


BCD 


9INTERNAL FORMULA NUMBERS OF DIFFEi 




01340 


214360264651 








01341 


446443216045 








01342 


644422255162 








01343 


604626602431 








01344 


262625512545 








01345 


636062632163 








01346 


254425456362 








01347 


336060606060 








01350 


00000 00000 X 






A 




000 00 


END 





/*' 



1 
1 




ORG 183 

00267 




00267 


01303 01346 
01303 


TD 


01303 


3 00000 00267 




01304 


07400 4 00740 




01305 


01244 01237 




01306 


07400 4 00740 




01307 


01347 01311 




01310 


02000 00221 




01311 


606060606060 P 




01312 


606060606060 




01313 


243165316231 




01314 


464560314562 




01315 


635164236331 




01316 


464562602225 




01317 


273145453145 




01320 


276021636043 




01321 


462321633146 




01322 


45600402C160 




01323 


302165256045 




01324 


466360222525 




01325 


456025672523 




01326 


646325243360 




01327 


606060606060 




01330 


606060606060 




01331 


606060606060 




01332 


606060606060 




01333 


606060606060 




01334 


606060606060 




01335 


606060606060 




01336 


606060606060 




01337 


434627312360 




01340 


462660633025 




01341 


604751462751 




01342 


214460442142 




01343 


256260633031 




01344 


626031444746 




01345 


626231224325 




01346 


336060606060 




01347 


00000 00000 X 


A 




00000 



FORCE NEW RECORD 
•CARD FOR DE 

425 FT 73 



FORCE NEW RECORD 

ORG 183 

HTR X-1*Q»LQCREC 

ORG LOCREC 

TXH 183 

TSX PRINT»4 

HTR MACHlN>0*MACHIN+5 

TSX PRINT»4 

HTR PR*0»PR+30 

TRA D1GRTN 

BCD 2 

BCD DIVISION INSTRUCTIONS BEGINNING AT LOCATION 421 HAVE NOT BEE 



BCD N EXECUTED. 



BCD 8L0GIC OF THE PROGRAM MAKES THIS IMPOSSIBLE* 



END 



}07 



u 



o 



o 



3 L 



1 


ORG 184 


1 


00270 


00270 


01303 01346 




01303 


TD 01303 


3 00000 00270 


01304 


07400 4 00740 


01303 


01244 01237 


01306 


07400 4 00740 


, 01307 


01347 01311 


01310 


02000 00221 


01311 


606060606060 


01312 


606060606060 


01313 


243165316231 


01314 


464560314562 


01315 


635164236331 


01316 


464562602225 


01317 


273145453145 


01320 


276021636043 


01321 


462321633146 


01322 


456005000160 


01323 


302165256045 


01324 


466360222525 


01325 


456025672523 


01326 


646325243360 


01327 


606060606060 


01330 


606060606060 


01331 


606060606060 


01332 


606060606060 


01333 


606060606060 


01334 


606060606060 


01335 


606060606060 


01336 


606060606060 


01337 


434627312360 


01340 


462660633025 


01341 


604751462751 


01342 


214460442142 


01343 


256260633031 


01344 


626031444746 


01345 


626231224325 


01346 


336060606060 


01347 


00000 00000 


A 


00000 



PR 



FORCE NEW RECORD 
CARD FOR DE 

510 FT 73 



FORCE NEW RECORD 
ORG 184 

HTR X-l#0»LOCREC 
ORG LOCREC 
TXH 184 
TSX PRINT»4 
HTR MACHIN»0«MACHIN+5 
TSX PRINT»4 
HTR PR»OtPR+30 
TRA DIGRTN 
BCD 2 



BCD DIVISION INSTRUCTIONS BEGINNING AT LOCATION 501 HAVE NOT BEE 



BCD N EXECUTED. 



BCD 8LOGIC OF THE PROGRAM MAKES THIS IMPOSSIBLE. 



END 



1 


ORG 185 


1 


00271 


00271 


01303 01346 




01303 


TO 01303 


3 00000 00271 


01304 


07400 4 00740 


01305 


01244 01237 


01306 


07400 4 00740 


01307 


01347 01311 


01310 


02000 00221 


01311 


606060606060 


01312 


606060606060 


01313 


243165316231 


01314 


464560314562 


01315 


635164236331 


01316 


464562602225 


.01317 


273145453145 


01320 


276021636043 


01321 


462321633146 


01322 


456001020206 


01323 


603021652560 


01324 


454663602225 


01325 


254560256725 


01326 


236463252433 


01327 


606060606060 


01330 


606060606060 


01331 


606060606060 


01332 


606060606060 


01333 


606060606060 


01334 


606060606060 


01335 


606060606060 


01336 


606060606060 


01337 


434627312360 


01340 


462660633025 


01341 


604751462751 


01342 


214460442142 


01343 


256260633031 


01344 


626031444746 


01345 


626231224325 


01346 


336060606060 


01347 


00000 00000 


A 


00000 



PR 



FORCE NEW RECORD 
CARD FOR DE 

1234 FT 62 



FORCE NEW RECORD 
ORG 185 

HTR X-ltO»LOCREC 
ORG LOCREC 
TXH 185 
TSX PRINT#4 
HTR MACHIN»0tMACHIN+5 
TSX PRINT#4 
HTR PR»0»PR+30 
TRA DIGRTN 
BCD 2 

BCD DIVISION INSTRUCTIONS BEGINNING AT LOCATION 1226 HAVE NOT BE 



BCD EN EXECUTED. 



BCD 8L0GIC OF THE PROGRAM MAKES THIS IMPOSSIBLE. 



END 



u 



u 



n 



r 



^ 



TO 



ORG 186 
00272 01303 



01303 
01304 
01305 
01306 
01307 
01310 
01311 
01312 
01313 
01314 
01315 
01316 
01317 
01320 
01321 
01322 
01323 
01324 
01325 
01326 
01327 
01330 
01331 
01332 
01333 
01334 
01335 
01336 
01337 
01340 
01341 
01342 
01343 
01344 
01345 
01346 
01347 



00272 

01346 
01303 
00272 
00740 
01237 
00740 
01311 
00221 



00000 

07400 

01244 

07400 

01347 

02000 
606060606060 PR 
606060606060 
243165316231 
464560314562 
635164236331 
464562602225 
273145453145 
276021636043 
462321633146 
456001020503 
603021652560 
454663602225 
254560256725 
236463252433 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
434627312360 
462660633025 
604751462751 
214460442142 
256260633031 
626031444746 
626231224325 
336060606060 
00000 00000 X 

00000 END 



FORCE NEW RECORD 
ORG 186 

HTR X-l»0»LOCREC 
ORG LOCREC 
TXH 186 
TSX PRINT«4 
HTR MACHlN»0»MACHIN+5 
TSX PRINT«4 
HTR PR»0#PR+30 
TRA DIGRTN 
BCD 2 



FORCE NEW RECORD 
CARD FOR DE 

1261 FT 62 



BCD DIVISION INSTRUCTIONS BEGINNING AT LOCATION 1253 HAVE NOT BE 



BCD EN EXECUTED* 



BCD 8L0GIC OF THE PROGRAM MAKES THIS IMPOSSIBLE. 



1 




ORG 187 


FORCE 


NEW RECORD 


1 




00273 


ORG 


187 FORCE NEW RECORD 




00273 


01303 01325 


HTR 


X-l»OtLOCREC CARD FOR DE 






01303 


ORG 


LOCREC 


TD 


01303 


3 00000 00273 


TXH 


187 2230 FT 75 




01304 


07400 4 00740 


TSX 


PRINT»4 




01305 


01244 01237 


HTR 


MACHlN»0tMACHIN+5 




01306 


07400 4 00740 


TSX 


PRINT»4 




01307 


01326 01311 


HTR 


PR»0»PR+13 




01310 


02000 00221 


TRA 


DIGRTN 




01311 


606060606060 PR 


BCD 


2 




01312 


606060606060 








01313 


243165312425 


BCD 


DIVIDE CHECK. LOGIC OF PROGRAM I: 




01314 


602330252342 








01315 


336060434627 








01316 


312360462660 








01317 


475146275121 








01320 


446031626062 








01321 


642330606330 








01322 


216360633031 








01323 


626031626031 








01324 


44.4746626231 








01325 


224325336060 


BCD 


1BLE. 




01326 


00000 00000 X 






A 




00000 


END 





o 



u 



n 



r\ 



1 ORG 1*8 

1 00274 

00274 01303 01472 

01303 

TO 01303 3 00000 00274 



01304 07400 4 00740 

01305 01244 01237 

01306 07400 4 00740 

01307 01473 01311 

01310 02000 00221 

01311 606060606060 

01312 606060606060 

01313 262131436451 

01314 256046266023 

01315 216260314562 

01316 635164236331 

01317 464560465160 

01320 314524256760 

01321 512527316263 

01322 255162603145 

01323 602567214431 

01324 453145276004 

01325 606646512460 

01326 254563517060 

01327 265146446046 

01330 452560462660 

01331 633025605125 

01332 234651246260 

01333 433162632524 

01334 336060606060 

01335 606060606060 

01336 606060606060 

01337 254563517060 
01340 316260623046 



PR 



FORCE 


NEW RECORD 








ORG 


188 


FORCE 


NEW 


RECORD 


HTR 


X-1»0»L0CREC 


CARD 


FOR 


DE 


ORG 


LOCREC 








TXH 


188 


377 


FT 


56 




186 


424 


FT 


56 




188 


613 


FT 


56 




188 


654 


FT 


56 




188 


1000 


FT 


56 




188 


1115 


FT 


56 




188 


1320 


FT 


56 




188 


1531 


FT 


56 




188 


1767 


FT 


56 




188 


7143 


FT 


56 




188 


132 


FT 


60 




188 


173 


FT 


60 




188 


227 


FT 


60 




188 


252 


FT 


60 




188 


334 


FT 


60 




188 


423 


FT 


60 




188 


442 


FT 


60 




188 


521 


FT 


60 




188 


544 


FT 


60 




188 


305 


FT 


60 




188 


363 


FT 


60 


TSX 


PRINT»4 








HTR 


MACHIN»0tMACHIN+5 








TSX 


PRINT»4 






. 


HTR 


PR>0»PR+114 








TRA 


DIGRTN 








BCD 


2 









BCD FAILURE OF CAS INSTRUCTION OR INDEX REGISTERS IN EXAMINING 4 



BCD 



WORD ENTRY FROM ONE OF THE RECORDS LISTED, 



BCD ENTRY IS SHOWN TO BE GREATER THAN 4 WORDS. LOGIC OF THE PRO 



01341 
01342 
01343 
01344 
01345 
01346 
01347 
01350 
01351 
01352 
01353 
01354 
01355 
01356 
01357 
01360 
01361 
01362 
01363 
01364 
01365 
01366 
01367 
01370 
01371 
01372 
01373 
01374 
01375 
01376 
01377 
01400 
01401 
01402 
01403 
01404 
01405 
01406 
01407 
01410 
01411 
01412 
01413 
01414 
01415 
01416 
01417 
01420 
01421 
01422 
01423 
01424 
01425 
01426 



664560634660 
222560275125 
216325516063 
302145600460 
664651246233 
606043462731 
236046266063 
302560475146 
275121446044 
214225626063 
303162603144 
474662623122 
432533606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
233163605125 
234651247360 
632147256002 
736026314325 
600260606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
234644472446 
605125234651 
247360632147 
256004736026 
314325600260 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 



BCD GRAM MAKES THIS IMPOSSIBLE* 



BCD 2 

BCD CIT RECORD* TAPE 2* FILE 2 



BCD 



BCD COMPDO RECORD* TAPE 4* FILE 2 



BCD 



o 



u 



n 



n 



01427 


606060606060 


01430 


606060606060 


01431 


606060606060 


01432 


606060606060 


01433 


606060606060 


01434 


606060606060 


01435 


244626314322 


01436 


605125234651 


01437 


247360632147 


01440 


256002736026 


01441 


314325601060 


01442 


606060606060 


01443 


606060606060 


01444 


606060606060 


01445 


606060606060 


01446 


606060606060 


01447 


606060606060 


01450 


606060606060 


01451 


606060606060 


01452 


606060606060 


01453 


606060606060 


01454 


606060606060 


01455 


606060606060 


01456 


606060606060 


01457 


606060606060 


01460 


606060606060 


01461 


442551272524 


01462 


602346444721 


01463 


314360214524 


01464 


602346444724 


01465 


466051252346 


01466 


512462736063 


01467 


214725600373 


01470 


602631432560 


01471 


016060606060 


01472 


606060606060 


01473 


00000 00000 X 




00000 



BCD DOFILB RECORD* TAPE 2. FILE 8 



BCD 



BCD MERGED COMPAIL AND COMPDO RECORDS* TAPE 3» FILE 1 



END 



1 ORG 189 

1 00275 

00275 01303 01420 

01303 

TD 01303 3 00000 00275 



0130* 
01305 
01306 
01307 
01310 
01311 
01312 
01313 
01314 
01315 
01316 
01317 
01320 
01321 
01322 
01323 
01324 
01325 
01326 
01327 
01330 
01331 
01332 
01333 
0133* 
01335 
01336 
01337 
01340 
01341 
01342 
01343 
01344 
01345 
01346 
01347 
01350 
01351 
01352 
01353 
01354 
01355 
01356 
01357 
01360 
01361 
01362 



07400 

01252 

76200 

46000 

70000 

70000 

07400 

01361 

07400 

07400 

01421 

02000 

00000 
606060606060 
606060606060 
214560314563 
255144252431 
216325602346 
512560632122 
432560316260 
266443433360 
606330256062 
642262235131 
476360234644 
223145216331 
464562602145 
246026434666 
606263516423 
636451256060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
215125606346 
466023464447 
432567606631 
633031456021 
602446604525 
626333606063 
302560626321 
632544254563 
606060606060 
606060606060 
606060606060 
606060606060 



00740 
01244 
00304 
01320 
00527 
00530 
00740 
01321 
00505 
00740 
01361 
00272 
00031 A 
PR 



FORCE NEW RECORD 
ORG 189 

HTR X-l»0#LOCREC 
ORG LOCREC 
TXH 189 

189 

189 
TSX PRINT#4 
HTR SOURCE »0#S0URCE+6 
RDR 4 
LOA A 

CPY ALFBET 
CPY SYM 
TSX PRINTt4 
HTR PR»0»PR+32 
TSX FX4.PR»4 
TSX PRINT»4 
HTR PRl»0»PRl+32 . 
TRA SPEND 
HTR831 
BCD 2 



FORCE NEW RECORD 
CARD FOR DE 



6063 
6475 
5273 



FT 
FT 

FT 



32 
32 
34 



BCD AN INTERMEDIATE CORE TABLE IS FULL. THE SUBSCRIPT COMBINATI 



BCD ONS AND FLOW STRUCTURE 



BCD ARE TOO COMPLEX WITHIN A DO NEST. THE STATEMENT 



PR1 



BCD 2 



u 



u 



n 



n 



01363 316260633025 

01364 604664632551 

01365 444662636024 

01366 466046266063 

01367 302560452562 

01370 636066303123 

01371 306030216260 

01372 232164622524 

01373 606330256046 

01374 652551264346 

01375 663360605125 

01376 665131632560 

01377 452562636021 

01400 452460623144 

01401 474331267060 

01402 606060606060 

01403 606060606060 

01404 606060606060 

01405 606060606060 

01406 6060606^060 

01407 626422622351 

01410 314763602346 

01411 442231452163 

01412 314645626046 

01413 516026434666 

01414 606263516423 

01415 636451253360 

01416 606060606060 

01417 606060606060 

01420 606060606060 

01421 00000 00000 

00000 



BCD IS THE OUTERMOST DO OF THE NEST WHICH HAS CAUSED THE OVERFLO 



BCD W. REWRITE NEST AND SIMPLIFY 



BCD SUBSCRIPT COMBINATIONS OR FLOW STRUCTURE. 



END 



ORG 190 



00276 01303 



TO 



01303 
01304 
01305 
01306 

01307 
01310 
01311 
01312 
01313 
01314 
01315 
01316 
01317 
01320 
01321 
01322 
01323 
01324 
01325 
01326 
01327 
01330 
01331 
01332 
01333 
01334 
01335 
01336 
01337 
01340 
01341 
01342 
01343 
01344 
01345 
01346 
01347 
01350 
01351 
01352 
01353 
01354 
01355 
01356 
01357 
01360 
01361 
01362 
01363 



00000 
07400 
01252 
50000 



-0 32000 
60100 
53400 1 
50000 1 
40200 

10000 

1 77776 1 
3 77740 1 
07400 4 
01441 
00000 
02000 
606060606060 
606060606060 
216063212243 
256023464447 
314325246022 
706062252363 
314645600160 
475131442560 
302162602567 
232525242524 
606330256022 
642626255160 
623171253360 
606330316260 
243121274546 
626331236051 
252346512460 
234644472151 
256260606060 
606060606060 
606060606060 
606060606060 
633025606321 
224325603124 
254563312631 
232163314645 
606646512460 
314560633025 
602124245125 
626260462660 
070501036063 
466021604331 
626360462660 



00276 

01523 
01303 

00276 
00740 
01244 
01227 
07513 
07513 
01257 
01232 
01464 
01257 
01441 
01316 
01312 
00740 
01323 
01322 
00221 



FORCE. NEW RECORD 

ORG 190 

HTR X-l»OtLOCREC 

ORG LOCREC 

TXH 190 

TSX PRI?*T«4 

HTR SOURCE »0*S0URCE+6 

CLA ADDKSK. 
IDWD SYN87513 

ANA IDWD 

STO ERAS 

LXA ZERO»l 

SEARCH CLA TBLWDtl 

SUB ERAS 

TZE PACK 

TXI A»lt-2 

A TXH SEARCH»l»-32 

TSX PRINT»4 

HTR ER»0»ER+78 

HTR E ' 

E TRA DIGRTN 

ER BCD 2 

BCD A TABLE COMPILED BY SECTION 1 PRIME HAS EXCEEDED THE BUFFER 



FORCE NEW RECORD 
CARD FOR DE 

7620 FT 21 



PUT AWAY TABLE IDENTIFICATION WORD 
TABLE IDENTIFICATION AT LOC 7513 



TABLE SEARCH 



BCD SIZE. THIS DIAGNOSTIC RECORD COMPARES 



BCD THE TABLE IDENTIFICATION WORD IN THE ADDRESS OF 7513 TO A LI 



BCD ST OF 16 POSSIBLE TABLES* 



(J 



o 



n 



01364 


010660474662 


01365 


623122432560 


01366 


632122432562 


01367 


336060606060 


01370 


606060606060 


01371 


606060606060 


01372 


606060606060 


01373 


606060606060 


01374 


606060606060 


01375 


633025606225 


01376 


215123306030 


01377 


216260262131 


01400 


432524336060 


01401 


633025602143 


01402 


434666252460 


01403 


632122432560 


01404 


312425456331 


01405 


263123216331 


01406 


464560456444 


01407 


222551626021 


01410 


512560314560 


01411 


434623216331 


01412 


464562600104 


01413 


060473606060 


01414 


606060606060 


01415 


606060606060 


01416 


.606060606060 


01417 


606060606060 


01420 


606060606060 


01421 


010406046047 


01422 


436462600273 


01423 


602563233360 


01424 


604751256262 


01425 


606263215163 


01426 


603126607046 


01427 


646066316230 


01430 


606346605125 


01431 


626346512560 


01432 


442123303145 


01433 


256063466062 


01434 


632163256031 


01435 


456066303123 


01436 


306025515146 


01437 


516046232364 


01440 


515125243360 


01441 - 


-0 50000 1 01465 


01442 


60200 01450 


01443 


07400 4 00740 


01444 


01464 01446 


01445 


02000 00272 


01446 


606060606060 


01447 


606060606060 


01450 


606060606060 


01451 


606321224325 



BCD THE SEARCH HAS FAILED. THE ALLOWED TABLE IDENTIFICATION NUM 



BCD BERS ARE IN LOCATIONS 1464t 



BCD 1464 PLUS 2» ETC* PRESS START IF YOU WISH TO RESTORE MACHIN 



PACK 



PR 



PR1 



BCD 6E TO STATE IN WHICH ERROR OCCURRED. 



CAL TBLWD+1*1 
SLW PR1 
TSX PRINT»4 
HTR PR»0»PR+14 
TRA SPEND 
BCD 2 



BCD 
BCD 



TABLE HAS EXCEEDED THE BUFFER SIZE. REWRITE SOURCE PROGRAM 



01*52 


603021626025 






01453 


672325252425 






01454 


246063302560 






01455 


226426262551 






01456 


606231712533 






01457 


606051256651 






01460 


316325606246 






01461 


645123256047 






01462 


514627512144 






01463 


336060606060 


BCD 


1. 


01464 


00000 00017 TBLWD 


HTR 


15 


01465 


636263464762 


BCD 


1TST0PS 


01466 


00000 00016 


HTR 


14 


01467 


454645256723 


BCD 


1N0NEXC 


01470 


OOOOO 00015 


HTR 


13 


Q1471 


304643215127 


BCD 


1H0LARG 


01472 


00000 00014 


HTR 


12 


01473 


234644444645 


BCD 


1 COMMON 


01474 


00000 00013 


HTR 


11 


01475 


626422215127 


BCD 


1SUBARG 


01476 


00000 00012 


HTR 


10 


01477 


264651442163 


BCD 


1 FORMAT 


01500 


00000 00011 


HTR 


9 


01501 


234346626422 


BCD 


1CL0SUB 


01502 


00000 00010 


HTR 


8 


01503 


255064316360 


BCD 


1E0UIT 


01504 


00000 00007 


HTR 


7 


01505 


265125636060 


BCD 


1FRET 


01506 


00000 00006 


HTR 


6 


01507 


264651652143 


BCD 


1F0RVAL 


01510 


00000 00005 


HTR 


5 


01511 


264651652151 


BCD 


1F0RVAR 


01512 


00000 00004 


HTR 


4 


01513 


264651632127 


BCD 


1F0RTAG 


01514 


00000 00003 


HTR 


3 


01515 


635121246060 


BCD 


1TRAD 


01516 


00000 00002 


HTR 


2 


01517 


633126274660 


BCD 


1TIFG0 


01520 


00000 00001 


HTR 


1 


01521 


632446606060 


BCD 


IT DO 


01522 


00000 00000 


HTR 





01523 


632531264546 


BCD 


1TEIFN0 


01524 


00000 0* 00000 x 








00000 


END 





u 



u 



n 



rs 



1 




ORG 191 


FORCE 


NEW RECORD 


1 




00277 


ORG 


191 FORCE NEW RECORD 




00277 


01303 01336 


HTR 


X-l»0»LOCREC CARD FOR DE 






01303 


ORG 


LOCREC 


TO 


01303 


3 00000 00277 


TXH 


191 1160 FT 22 




01304 


07400 4 00740 


TSX 


PRINT#4 




01305 


01252 01244 


HTR 


SOURCE »0»S0URCE+6 




01306 


07400 4 00740 


TSX 


PRINT#4 




01307 


01337 01311 


HTR 


PR»0»PR+22 




01310 


02000 00272 


TRA 


SPEND 




01311 


606060606060 PR 


BCD 


2 




01312 


606060606060 








01313 


454660314562 


BCD 


NO INSTRUCTIONS WERE COMPILED. C 




01314 


635164236331 








01315 


464562606625 








01316 


512560234644 








01317 


473143252433 








01320 


606023465151 








01321 


252363606246 








01322 


645123256047 








01323 


514627512144 








01324 


606346603021 








01325 


652560216360 


BCD 


VE AT LEAST ONE EXECUTABLE STATEM 




01326 


432521626360 








01327 


464525602567 








01330 


252364632122 








01331 


432560626321 








01332 


632544254563 








01333 


336060606060 








01334 


606060606060 








01335 


606060606060 








01336 


606060606060 






A 


01337 


00000 00000 X 

ooooo 


.... END 





CORRECT SOURCE PROGRAM TO HA 



1 




ORG 192 


1 




00300 




00300 


01303 01326 
01303 


TD 


01303 


3 00000 00300 




01304 


07400 4 00740 




01305 


01252 01244 




01306 


07400 4 00740 




01307 


01327 01311 




01310 


02000 00272 




01311 


606060606060 




01312 


606060606060 




01313 


633025512560 




01314 


215125604546 




01315 


606263216325 




01316 


442545636045 




01317 


644422255162 




01320 


603145606330 




01321 


256062466451 




01322 


232560475146 




01323 


275121443360 




01324 


602346515125 




01325 


236360475146 




01326 


275121443360 


A 


01327 


00000 00000 
OOOOO 



PR 



FORCE NEW RECORD 
ORG 192 

HTR X-1»0»L0CREC 
ORG LOCREC 
TXH 192 
TSX PRINT»4 
HTR SOURCE »0#S0URCE+6 
TSX PRINT»4 
HTR PR»0*PR+14 
TRA SPEND 
BCD 2 



FORCE NEW RECORD 
CARD FOR DE 

7751 FT 21 



BCD 



THERE ARE NO STATEMENT NUMBERS IN THE SOURCE PROGRAM* CORRE 



BCD 2CT PROGRAM. 



END 



o 



Q 



